home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2000-03-19 | 34.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';-----------------------------------------------------------'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.; |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000050| 20 42 20 55 20 54 20 54 | 20 4f 20 4e 20 20 20 20 | B U T T| O N |
|00000060| 42 20 41 20 52 00 3b 20 | 20 20 20 20 20 20 20 20 |B A R.; | |
|00000070| 20 42 20 59 20 20 20 20 | 20 48 20 41 20 4c 20 45 | B Y | H A L E|
|00000080| 20 46 20 20 20 4f 20 46 | 20 20 20 53 20 55 20 4e | F O F| S U N|
|00000090| 20 20 51 20 55 20 45 20 | 45 20 4e 00 3b 00 3b 20 | Q U E |E N.;.; |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000b0| 20 20 49 6e 73 70 69 72 | 65 64 20 69 6e 20 53 74 | Inspir|ed in St|
|000000c0| 61 72 74 42 61 72 00 00 | 80 c3 00 00 3b 73 75 63 |artBar..|....;suc|
|000000d0| 63 3d 57 72 69 74 65 46 | 69 6c 65 28 31 30 2c 22 |c=WriteF|ile(10,"|
|000000e0| 74 3a 62 62 6c 6f 67 22 | 29 00 00 80 13 20 42 75 |t:bblog"|).... Bu|
|000000f0| 74 74 6f 6e 42 61 72 2d | 63 6f 6e 73 74 2d 64 69 |ttonBar-|const-di|
|00000100| 6d 73 2e 62 62 32 00 80 | 13 20 42 75 74 74 6f 6e |ms.bb2..|. Button|
|00000110| 42 61 72 2d 61 6c 6c 70 | 75 72 70 6f 73 65 2e 62 |Bar-allp|urpose.b|
|00000120| 62 32 00 00 56 45 52 53 | 49 4f 4e 5f 4e 55 4d 42 |b2..VERS|ION_NUMB|
|00000130| 45 52 24 3d 22 32 2e 31 | 22 00 56 45 52 24 3d 22 |ER$="2.1|".VER$="|
|00000140| 24 56 45 52 3a 20 42 75 | 74 74 6f 6e 42 61 72 20 |$VER: Bu|ttonBar |
|00000150| 32 2e 31 20 28 31 38 2e | 30 33 2e 30 30 29 22 00 |2.1 (18.|03.00)".|
|00000160| 00 62 75 74 74 6f 6e 62 | 61 72 5f 69 64 20 3d 20 |.buttonb|ar_id = |
|00000170| 30 00 80 bb 00 20 20 62 | 75 74 74 6f 6e 62 61 72 |0.... b|uttonbar|
|00000180| 5f 69 64 20 3d 20 62 75 | 74 74 6f 6e 62 61 72 5f |_id = bu|ttonbar_|
|00000190| 69 64 20 2b 20 31 00 20 | 20 63 78 5f 6e 61 6d 65 |id + 1. | cx_name|
|000001a0| 24 3d 22 42 75 74 74 6f | 6e 42 61 72 22 2b dd 83 |$="Butto|nBar"+..|
|000001b0| 28 62 75 74 74 6f 6e 62 | 61 72 5f 69 64 29 00 20 |(buttonb|ar_id). |
|000001c0| 20 6c 6f 63 6b 5f 6e 61 | 6d 65 24 3d 22 45 4e 56 | lock_na|me$="ENV|
|000001d0| 3a 22 2b 63 78 5f 6e 61 | 6d 65 24 00 80 bc 20 28 |:"+cx_na|me$... (|
|000001e0| be 15 28 6c 6f 63 6b 5f | 6e 61 6d 65 24 29 3d bc |..(lock_|name$)=.|
|000001f0| 0f 29 00 73 3d be 12 28 | 30 2c 6c 6f 63 6b 5f 6e |.).s=..(|0,lock_n|
|00000200| 61 6d 65 24 29 20 3a 20 | be 07 20 30 20 3a 20 dd |ame$) : |.. 0 : .|
|00000210| 81 20 22 48 22 20 3a 20 | be 02 20 30 00 d2 02 00 |. "H" : |.. 0....|
|00000220| 00 3b 00 3b 20 57 41 52 | 4e 49 4e 47 3a 20 45 6d |.;.; WAR|NING: Em|
|00000230| 70 74 79 20 66 69 6c 65 | 20 69 73 20 6e 6f 74 20 |pty file| is not |
|00000240| 72 65 63 6f 67 6e 69 7a | 65 64 20 62 79 20 45 78 |recogniz|ed by Ex|
|00000250| 69 73 74 73 21 00 3b 20 | 41 6e 6f 74 68 65 72 20 |ists!.; |Another |
|00000260| 42 6c 69 74 7a 20 6d 69 | 73 74 61 6b 65 20 3a 2d |Blitz mi|stake :-|
|00000270| 28 00 3b 00 00 73 63 72 | 65 65 6e 5f 77 69 64 74 |(.;..scr|een_widt|
|00000280| 68 3d 31 00 73 63 72 65 | 65 6e 5f 68 65 69 67 68 |h=1.scre|en_heigh|
|00000290| 74 3d 31 00 62 75 74 74 | 6f 6e 5f 6c 65 66 74 5f |t=1.butt|on_left_|
|000002a0| 62 6f 75 6e 64 3d 31 00 | 62 75 74 74 6f 6e 5f 72 |bound=1.|button_r|
|000002b0| 69 67 68 74 5f 62 6f 75 | 6e 64 3d 31 00 62 75 74 |ight_bou|nd=1.but|
|000002c0| 74 6f 6e 5f 75 70 5f 62 | 6f 75 6e 64 3d 31 00 62 |ton_up_b|ound=1.b|
|000002d0| 75 74 74 6f 6e 5f 64 6f | 77 6e 5f 62 6f 75 6e 64 |utton_do|wn_bound|
|000002e0| 3d 31 00 00 73 75 63 63 | 20 3d 20 ac 81 28 63 78 |=1..succ| = ..(cx|
|000002f0| 5f 6e 61 6d 65 24 2c 22 | 42 75 74 74 6f 6e 42 61 |_name$,"|ButtonBa|
|00000300| 72 20 22 2b 56 45 52 53 | 49 4f 4e 5f 4e 55 4d 42 |r "+VERS|ION_NUMB|
|00000310| 45 52 24 2b 22 20 62 79 | 20 44 61 6e 69 65 6c 20 |ER$+" by| Daniel |
|00000320| 50 6f 6c 61 6e 73 6b 79 | 22 2c 22 42 75 74 74 6f |Polansky|","Butto|
|00000330| 6e 20 6c 61 75 6e 63 68 | 69 6e 67 20 69 6e 74 65 |n launch|ing inte|
|00000340| 72 66 61 63 65 22 29 00 | 00 72 65 78 78 5f 6d 73 |rface").|.rexx_ms|
|00000350| 67 5f 70 6f 72 74 5f 62 | 20 3d 20 bc 0f 00 00 63 |g_port_b| = ....c|
|00000360| 6f 6c 75 6d 6e 5f 74 69 | 74 6c 65 73 5f 73 65 74 |olumn_ti|tles_set|
|00000370| 75 70 5f 62 3d bc 0f 00 | 00 00 3b 20 20 20 20 20 |up_b=...|..; |
|00000380| 20 20 20 20 20 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ==|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 00 3b |========|======.;|
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003b0| 20 20 20 52 45 53 54 41 | 52 54 00 3b 20 20 20 20 | RESTA|RT.; |
|000003c0| 20 20 20 20 20 20 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =|========|
|000003d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 00 |========|=======.|
|000003e0| 00 2e 72 65 73 74 61 72 | 74 00 00 6d 65 6e 75 66 |..restar|t..menuf|
|000003f0| 69 6c 65 24 20 20 20 20 | 20 20 20 3d 20 22 53 3a |ile$ | = "S:|
|00000400| 62 75 74 74 6f 6e 62 61 | 72 2e 6d 65 6e 75 22 00 |buttonba|r.menu".|
|00000410| 80 0b 20 72 65 78 78 5f | 6d 73 67 5f 70 6f 72 74 |.. rexx_|msg_port|
|00000420| 5f 62 00 20 20 e1 02 20 | 50 6f 72 74 2e 6c 00 20 |_b. .. |Port.l. |
|00000430| 20 72 65 78 78 5f 6d 73 | 67 5f 70 6f 72 74 5f 62 | rexx_ms|g_port_b|
|00000440| 20 3d 20 bc 0f 00 80 c0 | 00 72 65 71 75 65 73 74 | = .....|.request|
|00000450| 65 72 5f 70 61 74 68 24 | 20 3d 20 22 22 00 00 00 |er_path$| = ""...|
|00000460| 50 6f 72 74 24 3d 22 22 | 00 80 0b 20 b5 01 3e 30 |Port$=""|... ..>0|
|00000470| 00 20 20 80 0b 20 b5 02 | 28 31 29 3d 22 3f 22 00 |. .. ..|(1)="?".|
|00000480| 20 20 20 20 dd 81 20 22 | 4d 45 4e 55 46 49 4c 45 | .. "|MENUFILE|
|00000490| 2f 4d 2c 50 4f 52 54 2f | 4b 22 2b dc 86 28 31 30 |/M,PORT/|K"+..(10|
|000004a0| 29 00 20 20 20 20 80 05 | 20 65 78 69 74 00 20 20 |). ..| exit. |
|000004b0| 80 c0 00 00 20 20 80 16 | 20 70 61 72 3d 31 20 80 |.... ..| par=1 .|
|000004c0| 18 20 b5 01 00 20 20 20 | 20 70 24 3d b5 02 28 70 |. ... | p$=..(p|
|000004d0| 61 72 29 20 3a 20 6c 24 | 3d dc 97 28 70 24 29 00 |ar) : l$|=..(p$).|
|000004e0| 20 20 20 20 74 5f 70 6f | 73 3d dc 89 28 6c 24 2c | t_po|s=..(l$,|
|000004f0| 22 70 6f 72 74 3d 22 29 | 00 20 20 20 20 80 0b 20 |"port=")|. .. |
|00000500| 74 5f 70 6f 73 3e 30 00 | 20 20 20 20 20 20 50 6f |t_pos>0.| Po|
|00000510| 72 74 24 20 3d 20 dc 91 | 28 70 24 2c 74 5f 70 6f |rt$ = ..|(p$,t_po|
|00000520| 73 2b 34 29 00 20 20 20 | 20 20 20 50 6f 72 74 2e |s+4). | Port.|
|00000530| 6c 20 3d 20 e1 01 28 20 | 50 6f 72 74 24 20 29 00 |l = ..( |Port$ ).|
|00000540| 20 20 20 20 20 20 80 0b | 20 50 6f 72 74 2e 6c 20 | ..| Port.l |
|00000550| 3d 20 30 00 20 20 20 20 | 20 20 20 20 b5 8d 20 62 |= 0. | .. b|
|00000560| 62 6d 24 2c 22 45 72 72 | 6f 72 20 63 72 65 61 74 |bm$,"Err|or creat|
|00000570| 69 6e 67 20 70 6f 72 74 | 3a 20 22 2b 50 6f 72 74 |ing port|: "+Port|
|00000580| 24 2c 22 49 20 73 65 65 | 22 20 3a 20 80 02 00 20 |$,"I see|" : ... |
|00000590| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 | .".| |
|000005a0| 72 65 78 78 5f 6d 73 67 | 5f 70 6f 72 74 5f 62 20 |rexx_msg|_port_b |
|000005b0| 3d 20 bc 0e 00 20 20 20 | 20 20 20 80 c0 00 20 20 |= ... | ... |
|000005c0| 20 20 80 22 00 20 20 20 | 20 20 20 74 5f 70 6f 73 | .". | t_pos|
|000005d0| 3d dc 89 28 6c 24 2c 22 | 64 65 6c 61 79 3d 22 29 |=..(l$,"|delay=")|
|000005e0| 00 20 20 20 20 20 20 80 | 0b 20 74 5f 70 6f 73 3e |. .|. t_pos>|
|000005f0| 30 00 20 20 20 20 20 20 | 20 20 64 65 6c 61 79 20 |0. | delay |
|00000600| 3d 20 bc 01 28 dc 91 28 | 70 24 2c 74 5f 70 6f 73 |= ..(..(|p$,t_pos|
|00000610| 2b 35 29 29 00 20 20 20 | 20 20 20 20 20 80 37 20 |+5)). | .7 |
|00000620| 64 65 6c 61 79 2a 35 30 | 00 20 20 20 20 20 20 80 |delay*50|. .|
|00000630| 22 00 20 20 20 20 20 20 | 20 20 6d 65 6e 75 66 69 |". | menufi|
|00000640| 6c 65 24 3d 70 24 00 20 | 20 20 20 20 20 80 c0 00 |le$=p$. | ...|
|00000650| 20 20 20 20 80 c0 00 20 | 20 80 17 00 80 c0 00 00 | ... | .......|
|00000660| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 |.; | F|
|00000670| 41 49 4c 45 44 20 54 4f | 20 49 4d 50 4c 45 4d 45 |AILED TO| IMPLEME|
|00000680| 4e 54 20 50 55 42 53 52 | 45 45 4e 3d 22 22 00 3b |NT PUBSR|EEN="".;|
|00000690| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 |.; | F|
|000006a0| 49 4e 44 53 43 52 45 45 | 4e 20 55 53 45 53 20 53 |INDSCREE|N USES S|
|000006b0| 43 52 45 45 4e 20 54 49 | 54 4c 45 20 49 4e 53 54 |CREEN TI|TLE INST|
|000006c0| 45 41 44 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 |EAD.; | |
|000006d0| 20 20 4f 46 20 53 43 52 | 45 45 4e 20 50 55 42 4e | OF SCR|EEN PUBN|
|000006e0| 41 4d 45 2e 00 00 6e 75 | 6d 62 65 72 5f 6f 66 5f |AME...nu|mber_of_|
|000006f0| 6d 65 6e 75 73 2e 6c 3d | 30 00 72 65 73 74 61 72 |menus.l=|0.restar|
|00000700| 74 5f 62 3d bc 0f 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |t_b=....|;-------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 00 | 00 00 80 08 20 6c 6f 67 |-------.|.... log|
|00000750| 73 7b 6d 65 73 73 61 67 | 65 24 7d 00 20 20 20 3b |s{messag|e$}. ;|
|00000760| 53 70 65 63 3a 20 73 65 | 72 76 65 73 20 66 6f 72 |Spec: se|rves for|
|00000770| 20 65 63 68 6f 69 6e 67 | 20 69 6e 66 6f 72 6d 61 | echoing| informa|
|00000780| 74 69 6f 6e 20 74 6f 20 | 6c 6f 67 66 69 6c 65 00 |tion to |logfile.|
|00000790| 20 20 20 3b 20 20 20 20 | 20 20 77 68 69 63 68 20 | ; | which |
|000007a0| 77 61 73 20 6f 70 65 6e | 20 61 74 20 74 68 65 20 |was open| at the |
|000007b0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 70 72 6f |beginnin|g of pro|
|000007c0| 67 72 61 6d 2e 00 20 20 | 20 3b 20 20 20 20 20 20 |gram.. | ; |
|000007d0| 54 68 65 20 70 75 72 70 | 6f 73 65 20 69 73 20 6f |The purp|ose is o|
|000007e0| 66 20 64 65 62 75 67 67 | 69 6e 67 2e 00 00 20 20 |f debugg|ing... |
|000007f0| 20 be 07 20 31 30 20 3a | 20 dd 81 20 6d 65 73 73 | .. 10 :| .. mess|
|00000800| 61 67 65 24 00 20 20 20 | d2 02 00 80 02 20 80 08 |age$. |..... ..|
|00000810| 00 80 08 20 6c 6f 67 6e | 7b 6d 65 73 73 61 67 65 |... logn|{message|
|00000820| 7d 00 20 20 20 3b 53 70 | 65 63 3a 20 73 65 72 76 |}. ;Sp|ec: serv|
|00000830| 65 73 20 66 6f 72 20 65 | 63 68 6f 69 6e 67 20 69 |es for e|choing i|
|00000840| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 74 6f 20 6c 6f |nformati|on to lo|
|00000850| 67 66 69 6c 65 00 20 20 | 20 3b 20 20 20 20 20 20 |gfile. | ; |
|00000860| 77 68 69 63 68 20 77 61 | 73 20 6f 70 65 6e 20 61 |which wa|s open a|
|00000870| 74 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |t the be|ginning |
|00000880| 6f 66 20 70 72 6f 67 72 | 61 6d 2e 00 20 20 20 3b |of progr|am.. ;|
|00000890| 20 20 20 20 20 20 54 68 | 65 20 70 75 72 70 6f 73 | Th|e purpos|
|000008a0| 65 20 69 73 20 6f 66 20 | 64 65 62 75 67 67 69 6e |e is of |debuggin|
|000008b0| 67 2e 00 00 20 20 20 be | 07 20 31 30 20 3a 20 dd |g... .|. 10 : .|
|000008c0| 82 20 6d 65 73 73 61 67 | 65 00 20 20 20 d2 02 00 |. messag|e. ...|
|000008d0| 80 02 20 80 08 00 00 00 | 80 08 20 65 72 61 73 65 |.. .....|.. erase|
|000008e0| 5f 63 6f 6c 75 6d 6e 7b | 63 6f 6c 75 6d 6e 7d 00 |_column{|column}.|
|000008f0| 20 20 20 80 15 20 63 6f | 6c 75 6d 6e 5f 6f 70 65 | .. co|lumn_ope|
|00000900| 6e 5f 62 28 29 2c 63 6f | 6c 75 6d 6e 5f 73 65 74 |n_b(),co|lumn_set|
|00000910| 75 70 5f 62 28 29 00 00 | 20 20 20 c6 9f 20 63 6f |up_b()..| .. co|
|00000920| 6c 75 6d 6e 00 20 20 20 | 80 2b 20 c5 01 20 63 6f |lumn. |.+ .. co|
|00000930| 6c 75 6d 6e 00 20 20 20 | 80 2b 20 c6 81 20 63 6f |lumn. |.+ .. co|
|00000940| 6c 75 6d 6e 00 20 20 20 | 63 6f 6c 75 6d 6e 5f 6f |lumn. |column_o|
|00000950| 70 65 6e 5f 62 28 63 6f | 6c 75 6d 6e 29 3d bc 0f |pen_b(co|lumn)=..|
|00000960| 00 20 20 20 63 6f 6c 75 | 6d 6e 5f 73 65 74 75 70 |. colu|mn_setup|
|00000970| 5f 62 28 63 6f 6c 75 6d | 6e 29 3d bc 0f 00 80 02 |_b(colum|n)=.....|
|00000980| 20 80 08 00 00 80 08 20 | 6f 70 65 6e 5f 63 6f 6c | ...... |open_col|
|00000990| 75 6d 6e 7b 63 6f 6c 75 | 6d 6e 7d 00 20 20 80 15 |umn{colu|mn}. ..|
|000009a0| 20 63 6f 6c 75 6d 6e 5f | 6f 70 65 6e 5f 62 28 29 | column_|open_b()|
|000009b0| 2c 6d 65 6e 75 5f 69 74 | 65 6d 73 28 29 00 20 20 |,menu_it|ems(). |
|000009c0| 80 15 20 63 6f 6c 75 6d | 6e 5f 77 69 6e 64 6f 77 |.. colum|n_window|
|000009d0| 5f 61 64 64 72 65 73 73 | 28 29 00 20 20 80 15 20 |_address|(). .. |
|000009e0| 6e 75 6d 62 65 72 5f 6f | 66 5f 6d 65 6e 75 73 2c |number_o|f_menus,|
|000009f0| 68 61 75 74 66 65 6e 2c | 70 6f 73 78 2c 70 6f 73 |hautfen,|posx,pos|
|00000a00| 79 2c 71 62 5f 6f 66 66 | 73 65 74 00 20 20 80 15 |y,qb_off|set. ..|
|00000a10| 20 65 78 63 6c 75 73 69 | 76 65 5f 6d 65 6e 75 73 | exclusi|ve_menus|
|00000a20| 5f 62 2c 6d 65 6e 75 73 | 5f 70 72 65 66 65 72 65 |_b,menus|_prefere|
|00000a30| 64 5f 64 69 72 65 63 74 | 69 6f 6e 2c 66 69 78 65 |d_direct|ion,fixe|
|00000a40| 64 5f 6f 70 65 6e 5f 62 | 00 20 20 80 15 20 62 75 |d_open_b|. .. bu|
|00000a50| 74 74 6f 6e 5f 68 65 69 | 67 68 74 2c 62 75 74 74 |tton_hei|ght,butt|
|00000a60| 6f 6e 5f 77 69 64 74 68 | 2e 6c 00 20 20 80 15 20 |on_width|.l. .. |
|00000a70| 6d 65 6e 75 5f 74 6f 70 | 5f 70 6f 73 69 74 69 6f |menu_top|_positio|
|00000a80| 6e 28 29 00 20 20 80 15 | 20 6d 65 6e 75 5f 64 69 |n(). ..| menu_di|
|00000a90| 72 65 63 74 69 6f 6e 28 | 29 2c 63 6f 6c 75 6d 6e |rection(|),column|
|00000aa0| 5f 73 65 74 75 70 5f 62 | 28 29 00 20 20 80 15 20 |_setup_b|(). .. |
|00000ab0| 73 63 72 65 65 6e 5f 68 | 65 69 67 68 74 00 00 20 |screen_h|eight.. |
|00000ac0| 20 80 0b 20 65 78 63 6c | 75 73 69 76 65 5f 6d 65 | .. excl|usive_me|
|00000ad0| 6e 75 73 5f 62 00 20 20 | 20 20 80 16 20 6d 65 6e |nus_b. | .. men|
|00000ae0| 75 3d 31 20 80 18 20 6e | 75 6d 62 65 72 5f 6f 66 |u=1 .. n|umber_of|
|00000af0| 5f 6d 65 6e 75 73 00 20 | 20 20 20 20 20 80 0b 20 |_menus. | .. |
|00000b00| 63 6f 6c 75 6d 6e 5f 6f | 70 65 6e 5f 62 28 6d 65 |column_o|pen_b(me|
|00000b10| 6e 75 29 00 20 20 20 20 | 20 20 20 20 c6 9f 20 6d |nu). | .. m|
|00000b20| 65 6e 75 00 20 20 20 20 | 20 20 20 20 80 2b 20 c5 |enu. | .+ .|
|00000b30| 01 20 6d 65 6e 75 00 20 | 20 20 20 20 20 20 20 63 |. menu. | c|
|00000b40| 6f 6c 75 6d 6e 5f 6f 70 | 65 6e 5f 62 28 6d 65 6e |olumn_op|en_b(men|
|00000b50| 75 29 3d bc 0f 00 20 20 | 20 20 20 20 80 02 20 80 |u)=... | .. .|
|00000b60| 0b 00 20 20 20 20 80 17 | 00 20 20 80 c0 00 00 20 |.. ..|. .... |
|00000b70| 20 80 0b 20 63 6f 6c 75 | 6d 6e 5f 6f 70 65 6e 5f | .. colu|mn_open_|
|00000b80| 62 28 63 6f 6c 75 6d 6e | 29 3d bc 0f 00 20 20 20 |b(column|)=... |
|00000b90| 20 68 61 75 74 66 65 6e | 3d 28 6d 65 6e 75 5f 69 | hautfen|=(menu_i|
|00000ba0| 74 65 6d 73 28 63 6f 6c | 75 6d 6e 29 2d 31 29 2a |tems(col|umn)-1)*|
|00000bb0| 62 75 74 74 6f 6e 5f 68 | 65 69 67 68 74 00 20 20 |button_h|eight. |
|00000bc0| 20 20 65 6e 78 3d 70 6f | 73 78 2b 34 2b 28 63 6f | enx=po|sx+4+(co|
|00000bd0| 6c 75 6d 6e 2d 31 29 2a | 62 75 74 74 6f 6e 5f 77 |lumn-1)*|button_w|
|00000be0| 69 64 74 68 2e 6c 00 20 | 20 20 20 80 0b 20 28 6d |idth.l. | .. (m|
|00000bf0| 65 6e 75 73 5f 70 72 65 | 66 65 72 65 64 5f 64 69 |enus_pre|fered_di|
|00000c00| 72 65 63 74 69 6f 6e 3d | 2d 31 29 20 80 42 20 28 |rection=|-1) .B (|
|00000c10| 70 6f 73 79 2b 31 2b 62 | 75 74 74 6f 6e 5f 68 65 |posy+1+b|utton_he|
|00000c20| 69 67 68 74 2b 68 61 75 | 74 66 65 6e 3c 3d 73 63 |ight+hau|tfen<=sc|
|00000c30| 72 65 65 6e 5f 68 65 69 | 67 68 74 29 00 20 20 20 |reen_hei|ght). |
|00000c40| 20 20 20 65 6e 79 3d 70 | 6f 73 79 2b 31 2b 62 75 | eny=p|osy+1+bu|
|00000c50| 74 74 6f 6e 5f 68 65 69 | 67 68 74 20 20 20 20 3b |tton_hei|ght ;|
|00000c60| 4f 50 45 4e 20 44 4f 57 | 4e 00 20 20 20 20 20 20 |OPEN DOW|N. |
|00000c70| 3b 53 74 6f 70 00 20 20 | 20 20 20 20 6d 65 6e 75 |;Stop. | menu|
|00000c80| 5f 64 69 72 65 63 74 69 | 6f 6e 28 63 6f 6c 75 6d |_directi|on(colum|
|00000c90| 6e 29 3d 31 00 20 20 20 | 20 80 22 00 20 20 20 20 |n)=1. | .". |
|00000ca0| 20 20 65 6e 79 3d 70 6f | 73 79 2d 28 31 2b 68 61 | eny=po|sy-(1+ha|
|00000cb0| 75 74 66 65 6e 29 20 20 | 20 20 20 20 20 20 3b 4f |utfen) | ;O|
|00000cc0| 50 45 4e 20 55 50 00 20 | 20 20 20 20 20 6d 65 6e |PEN UP. | men|
|00000cd0| 75 5f 64 69 72 65 63 74 | 69 6f 6e 28 63 6f 6c 75 |u_direct|ion(colu|
|00000ce0| 6d 6e 29 3d 2d 31 00 20 | 20 20 20 80 c0 00 00 20 |mn)=-1. | .... |
|00000cf0| 20 20 20 80 0b 20 65 6e | 79 3c 30 00 20 20 20 20 | .. en|y<0. |
|00000d00| 20 20 65 6e 79 3d 65 6e | 79 2b 68 61 75 74 66 65 | eny=en|y+hautfe|
|00000d10| 6e 2b 62 75 74 74 6f 6e | 5f 68 65 69 67 68 74 2b |n+button|_height+|
|00000d20| 32 00 20 20 20 20 80 02 | 20 80 0b 00 20 20 20 20 |2. ..| ... |
|00000d30| 80 0b 20 65 6e 79 2b 68 | 61 75 74 66 65 6e 3e 73 |.. eny+h|autfen>s|
|00000d40| 63 72 65 65 6e 5f 68 65 | 69 67 68 74 00 20 20 20 |creen_he|ight. |
|00000d50| 20 20 20 3b 20 65 6e 79 | 3d 57 42 48 65 69 67 68 | ; eny|=WBHeigh|
|00000d60| 74 2d 62 75 74 74 6f 6e | 5f 68 65 69 67 68 74 2d |t-button|_height-|
|00000d70| 32 2d 68 61 75 74 66 65 | 6e 00 20 20 20 20 20 20 |2-hautfe|n. |
|00000d80| 65 6e 79 3d 73 63 72 65 | 65 6e 5f 68 65 69 67 68 |eny=scre|en_heigh|
|00000d90| 74 2d 68 61 75 74 66 65 | 6e 00 20 20 20 20 80 02 |t-hautfe|n. ..|
|00000da0| 20 80 0b 00 20 20 20 20 | 6d 65 6e 75 5f 74 6f 70 | ... |menu_top|
|00000db0| 5f 70 6f 73 69 74 69 6f | 6e 28 63 6f 6c 75 6d 6e |_positio|n(column|
|00000dc0| 29 3d 65 6e 79 00 00 20 | 20 20 20 80 0b 20 70 6f |)=eny.. | .. po|
|00000dd0| 73 79 3c 65 6e 79 20 3a | 20 6d 65 6e 75 5f 64 69 |sy<eny :| menu_di|
|00000de0| 72 65 63 74 69 6f 6e 28 | 63 6f 6c 75 6d 6e 29 3d |rection(|column)=|
|00000df0| 31 20 3a 20 80 c0 00 00 | 20 20 20 20 c5 01 20 63 |1 : ....| .. c|
|00000e00| 6f 6c 75 6d 6e 2c 65 6e | 78 2b 71 62 5f 6f 66 66 |olumn,en|x+qb_off|
|00000e10| 73 65 74 2c 65 6e 79 2c | 62 75 74 74 6f 6e 5f 77 |set,eny,|button_w|
|00000e20| 69 64 74 68 2e 6c 2b 31 | 2c 68 61 75 74 66 65 6e |idth.l+1|,hautfen|
|00000e30| 2c 24 38 30 30 2c 22 22 | 2c 31 2c 32 00 20 20 20 |,$800,""|,1,2. |
|00000e40| 20 c5 3b 20 22 22 2c 22 | 42 75 74 74 6f 6e 42 61 | .; "","|ButtonBa|
|00000e50| 72 22 00 20 20 20 20 63 | 6f 6c 75 6d 6e 5f 77 69 |r". c|olumn_wi|
|00000e60| 6e 64 6f 77 5f 61 64 64 | 72 65 73 73 28 63 6f 6c |ndow_add|ress(col|
|00000e70| 75 6d 6e 29 20 3d 20 b5 | 91 00 20 20 20 20 c6 8e |umn) = .|.. ..|
|00000e80| 20 63 6f 6c 75 6d 6e 2c | 63 6f 6c 75 6d 6e 00 20 | column,|column. |
|00000e90| 20 20 20 63 6f 6c 75 6d | 6e 5f 6f 70 65 6e 5f 62 | colum|n_open_b|
|00000ea0| 28 63 6f 6c 75 6d 6e 29 | 3d bc 0e 00 20 20 80 02 |(column)|=... ..|
|00000eb0| 20 80 0b 00 00 20 20 63 | 6f 6c 75 6d 6e 5f 73 65 | .... c|olumn_se|
|00000ec0| 74 75 70 5f 62 28 63 6f | 6c 75 6d 6e 29 3d bc 0e |tup_b(co|lumn)=..|
|00000ed0| 00 80 02 20 80 08 00 00 | 80 08 20 63 6c 6f 73 65 |... ....|.. close|
|00000ee0| 5f 61 6c 6c 5f 63 6f 6c | 75 6d 6e 73 7b 7d 00 20 |_all_col|umns{}. |
|00000ef0| 20 80 15 20 6e 75 6d 62 | 65 72 5f 6f 66 5f 6d 65 | .. numb|er_of_me|
|00000f00| 6e 75 73 2c 63 6f 6c 75 | 6d 6e 5f 6f 70 65 6e 5f |nus,colu|mn_open_|
|00000f10| 62 28 29 00 00 20 20 80 | 16 20 6d 65 6e 75 5f 6e |b().. .|. menu_n|
|00000f20| 75 6d 62 65 72 3d 31 20 | 80 18 20 6e 75 6d 62 65 |umber=1 |.. numbe|
|00000f30| 72 5f 6f 66 5f 6d 65 6e | 75 73 00 20 20 20 20 80 |r_of_men|us. .|
|00000f40| 0b 20 63 6f 6c 75 6d 6e | 5f 6f 70 65 6e 5f 62 28 |. column|_open_b(|
|00000f50| 6d 65 6e 75 5f 6e 75 6d | 62 65 72 29 00 20 20 20 |menu_num|ber). |
|00000f60| 20 20 20 c6 9f 20 6d 65 | 6e 75 5f 6e 75 6d 62 65 | .. me|nu_numbe|
|00000f70| 72 00 20 20 20 20 20 20 | 80 2b 20 c5 01 20 6d 65 |r. |.+ .. me|
|00000f80| 6e 75 5f 6e 75 6d 62 65 | 72 00 20 20 20 20 20 20 |nu_numbe|r. |
|00000f90| 63 6f 6c 75 6d 6e 5f 6f | 70 65 6e 5f 62 28 6d 65 |column_o|pen_b(me|
|00000fa0| 6e 75 5f 6e 75 6d 62 65 | 72 29 3d bc 0f 00 20 20 |nu_numbe|r)=... |
|00000fb0| 20 20 80 c0 00 20 20 80 | 17 00 80 02 20 80 08 00 | ... .|.... ...|
|00000fc0| 00 80 08 20 73 6c 65 65 | 70 7b 7d 00 20 20 80 15 |... slee|p{}. ..|
|00000fd0| 20 6e 75 6d 62 65 72 5f | 6f 66 5f 6d 65 6e 75 73 | number_|of_menus|
|00000fe0| 2c 63 6f 6c 75 6d 6e 5f | 6f 70 65 6e 5f 62 28 29 |,column_|open_b()|
|00000ff0| 00 00 20 20 c6 9f 20 30 | 20 3a 20 80 2b 20 c5 01 |.. .. 0| : .+ ..|
|00001000| 20 30 00 20 20 80 16 20 | 6d 65 6e 75 3d 31 20 80 | 0. .. |menu=1 .|
|00001010| 18 20 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |. number|_of_menu|
|00001020| 73 00 20 20 20 20 80 0b | 20 63 6f 6c 75 6d 6e 5f |s. ..| column_|
|00001030| 6f 70 65 6e 5f 62 28 6d | 65 6e 75 29 00 20 20 20 |open_b(m|enu). |
|00001040| 20 20 20 c6 9f 20 6d 65 | 6e 75 20 3a 20 80 2b 20 | .. me|nu : .+ |
|00001050| c5 01 20 6d 65 6e 75 00 | 20 20 20 20 80 02 20 80 |.. menu.| .. .|
|00001060| 0b 00 20 20 80 17 00 80 | 02 20 80 08 00 00 80 08 |.. ....|. ......|
|00001070| 20 63 6f 75 6e 74 5f 63 | 75 72 73 6f 72 5f 62 6f | count_c|ursor_bo|
|00001080| 75 6e 64 73 7b 7d 00 20 | 20 80 15 20 70 6f 73 78 |unds{}. | .. posx|
|00001090| 2c 70 6f 73 79 2c 6e 75 | 6d 62 65 72 5f 6f 66 5f |,posy,nu|mber_of_|
|000010a0| 6d 65 6e 75 73 00 20 20 | 80 15 20 62 75 74 74 6f |menus. |.. butto|
|000010b0| 6e 5f 77 69 64 74 68 2e | 6c 2c 62 75 74 74 6f 6e |n_width.|l,button|
|000010c0| 5f 68 65 69 67 68 74 2c | 73 63 72 65 65 6e 5f 77 |_height,|screen_w|
|000010d0| 69 64 74 68 2c 73 63 72 | 65 65 6e 5f 68 65 69 67 |idth,scr|een_heig|
|000010e0| 68 74 00 20 20 80 15 20 | 63 75 72 73 6f 72 5f 6c |ht. .. |cursor_l|
|000010f0| 65 66 74 5f 62 6f 75 6e | 64 2c 63 75 72 73 6f 72 |eft_boun|d,cursor|
|00001100| 5f 72 69 67 68 74 5f 62 | 6f 75 6e 64 2c 63 75 72 |_right_b|ound,cur|
|00001110| 73 6f 72 5f 75 70 5f 62 | 6f 75 6e 64 2c 63 75 72 |sor_up_b|ound,cur|
|00001120| 73 6f 72 5f 64 6f 77 6e | 5f 62 6f 75 6e 64 00 00 |sor_down|_bound..|
|00001130| 20 20 63 75 72 73 6f 72 | 5f 6c 65 66 74 5f 62 6f | cursor|_left_bo|
|00001140| 75 6e 64 20 3d 20 30 00 | 20 20 63 75 72 73 6f 72 |und = 0.| cursor|
|00001150| 5f 72 69 67 68 74 5f 62 | 6f 75 6e 64 20 3d 20 6e |_right_b|ound = n|
|00001160| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 2d 31 |umber_of|_menus-1|
|00001170| 00 20 20 63 75 72 73 6f | 72 5f 75 70 5f 62 6f 75 |. curso|r_up_bou|
|00001180| 6e 64 20 3d 20 bc 02 28 | 28 30 2d 28 70 6f 73 79 |nd = ..(|(0-(posy|
|00001190| 2b 62 75 74 74 6f 6e 5f | 68 65 69 67 68 74 2a 30 |+button_|height*0|
|000011a0| 2e 32 35 29 29 2f 62 75 | 74 74 6f 6e 5f 68 65 69 |.25))/bu|tton_hei|
|000011b0| 67 68 74 29 00 20 20 63 | 75 72 73 6f 72 5f 64 6f |ght). c|ursor_do|
|000011c0| 77 6e 5f 62 6f 75 6e 64 | 20 3d 20 bc 02 28 28 73 |wn_bound| = ..((s|
|000011d0| 63 72 65 65 6e 5f 68 65 | 69 67 68 74 2d 28 70 6f |creen_he|ight-(po|
|000011e0| 73 79 2b 62 75 74 74 6f | 6e 5f 68 65 69 67 68 74 |sy+butto|n_height|
|000011f0| 2a 30 2e 32 35 29 29 2f | 62 75 74 74 6f 6e 5f 68 |*0.25))/|button_h|
|00001200| 65 69 67 68 74 29 00 80 | 02 20 80 08 00 00 80 08 |eight)..|. ......|
|00001210| 20 66 69 6e 64 5f 61 6e | 64 5f 6c 65 61 72 6e 5f | find_an|d_learn_|
|00001220| 73 63 72 65 65 6e 7b 7d | 00 20 20 80 15 20 6f 70 |screen{}|. .. op|
|00001230| 65 6e 5f 6f 6e 5f 77 62 | 5f 62 00 20 20 80 15 20 |en_on_wb|_b. .. |
|00001240| 73 63 72 65 65 6e 5f 77 | 69 64 74 68 2c 73 63 72 |screen_w|idth,scr|
|00001250| 65 65 6e 5f 68 65 69 67 | 68 74 00 00 20 20 80 0b |een_heig|ht.. ..|
|00001260| 20 6f 70 65 6e 5f 6f 6e | 5f 77 62 5f 62 20 3a 20 | open_on|_wb_b : |
|00001270| cf 02 20 30 00 20 20 80 | 22 20 20 20 20 20 20 20 |.. 0. .|" |
|00001280| 20 20 20 20 20 3a 20 cf | 04 20 30 00 20 20 80 c0 | : .|. 0. ..|
|00001290| 00 20 20 76 69 65 77 6d | 6f 64 65 2e 77 3d da 02 |. viewm|ode.w=..|
|000012a0| 2e 77 28 b5 8e 2b 34 34 | 2b 33 32 29 00 20 20 73 |.w(..+44|+32). s|
|000012b0| 63 72 65 65 6e 5f 77 69 | 64 74 68 3d da 02 2e 77 |creen_wi|dth=...w|
|000012c0| 28 b5 8e 2b 31 32 29 00 | 20 20 73 63 72 65 65 6e |(..+12).| screen|
|000012d0| 5f 68 65 69 67 68 74 3d | da 02 2e 77 28 b5 8e 2b |_height=|...w(..+|
|000012e0| 31 34 29 00 00 20 20 63 | 6f 75 6e 74 5f 63 75 72 |14).. c|ount_cur|
|000012f0| 73 6f 72 5f 62 6f 75 6e | 64 73 7b 7d 00 80 02 20 |sor_boun|ds{}... |
|00001300| 80 08 00 00 80 09 2e 62 | 20 63 68 65 63 6b 5f 66 |.......b| check_f|
|00001310| 69 74 5f 69 6e 5f 74 68 | 65 5f 73 63 72 65 65 6e |it_in_th|e_screen|
|00001320| 5f 78 7b 7d 00 20 20 3b | 72 65 74 75 72 6e 20 76 |_x{}. ;|return v|
|00001330| 61 6c 75 65 20 6d 65 61 | 6e 69 6e 67 3a 20 30 3d |alue mea|ning: 0=|
|00001340| 61 6c 6c 20 72 69 67 68 | 74 00 20 20 3b 20 20 20 |all righ|t. ; |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001360| 20 20 20 31 3d 70 6f 73 | 69 74 69 6f 6e 20 63 68 | 1=pos|ition ch|
|00001370| 61 6e 67 65 20 66 6f 72 | 63 65 64 00 20 20 3b 20 |ange for|ced. ; |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001390| 20 20 20 20 20 32 3d 6e | 75 6d 62 65 72 5f 6f 66 | 2=n|umber_of|
|000013a0| 5f 6d 65 6e 75 73 5f 63 | 75 74 00 00 20 20 80 15 |_menus_c|ut.. ..|
|000013b0| 20 71 62 5f 6f 66 66 73 | 65 74 2c 70 6f 73 78 2c | qb_offs|et,posx,|
|000013c0| 70 6f 73 79 00 20 20 80 | 15 20 6e 24 2c 62 62 6d |posy. .|. n$,bbm|
|000013d0| 24 2c 62 75 74 74 6f 6e | 5f 77 69 64 74 68 2e 6c |$,button|_width.l|
|000013e0| 00 20 20 80 15 20 6e 75 | 6d 62 65 72 5f 6f 66 5f |. .. nu|mber_of_|
|000013f0| 6d 65 6e 75 73 00 20 20 | 80 15 20 73 63 72 65 65 |menus. |.. scree|
|00001400| 6e 5f 77 69 64 74 68 2c | 73 63 72 65 65 6e 5f 68 |n_width,|screen_h|
|00001410| 65 69 67 68 74 00 00 20 | 20 70 6f 73 79 3d a5 89 |eight.. | posy=..|
|00001420| 28 70 6f 73 79 2c 73 63 | 72 65 65 6e 5f 68 65 69 |(posy,sc|reen_hei|
|00001430| 67 68 74 2d 31 33 29 00 | 20 20 77 69 6e 64 6f 77 |ght-13).| window|
|00001440| 5f 70 69 78 65 6c 77 69 | 64 74 68 3d 62 75 74 74 |_pixelwi|dth=butt|
|00001450| 6f 6e 5f 77 69 64 74 68 | 2e 6c 2a 6e 75 6d 62 65 |on_width|.l*numbe|
|00001460| 72 5f 6f 66 5f 6d 65 6e | 75 73 2b 35 2b 71 62 5f |r_of_men|us+5+qb_|
|00001470| 6f 66 66 73 65 74 00 20 | 20 80 0b 20 70 6f 73 78 |offset. | .. posx|
|00001480| 2b 77 69 6e 64 6f 77 5f | 70 69 78 65 6c 77 69 64 |+window_|pixelwid|
|00001490| 74 68 3e 73 63 72 65 65 | 6e 5f 77 69 64 74 68 00 |th>scree|n_width.|
|000014a0| 20 20 20 20 70 6f 73 78 | 3d 37 00 20 20 20 20 80 | posx|=7. .|
|000014b0| 0b 20 70 6f 73 78 2b 77 | 69 6e 64 6f 77 5f 70 69 |. posx+w|indow_pi|
|000014c0| 78 65 6c 77 69 64 74 68 | 3e 73 63 72 65 65 6e 5f |xelwidth|>screen_|
|000014d0| 77 69 64 74 68 00 20 20 | 20 20 20 20 b5 8d 20 62 |width. | .. b|
|000014e0| 62 6d 24 2c 22 57 61 72 | 6e 69 6e 67 3a 20 54 6f |bm$,"War|ning: To|
|000014f0| 6f 20 6d 61 6e 79 20 63 | 6f 6c 75 6d 6e 73 2e 22 |o many c|olumns."|
|00001500| 2b 6e 24 2b 22 43 75 74 | 74 69 6e 67 20 6e 75 6d |+n$+"Cut|ting num|
|00001510| 62 65 72 20 6f 66 20 63 | 6f 6c 75 6d 6e 73 2e 22 |ber of c|olumns."|
|00001520| 2c 22 49 20 73 65 65 22 | 00 20 20 20 20 20 20 6e |,"I see"|. n|
|00001530| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 3d 28 |umber_of|_menus=(|
|00001540| 73 63 72 65 65 6e 5f 77 | 69 64 74 68 2d 37 29 2f |screen_w|idth-7)/|
|00001550| 62 75 74 74 6f 6e 5f 77 | 69 64 74 68 2e 6c 00 20 |button_w|idth.l. |
|00001560| 20 20 20 20 20 80 09 20 | 80 07 20 32 00 20 20 20 | .. |.. 2. |
|00001570| 20 80 c0 00 20 20 20 20 | 80 09 20 80 07 20 31 00 | ... |.. .. 1.|
|00001580| 20 20 80 02 20 80 0b 00 | 20 20 80 09 20 80 07 20 | .. ...| .. .. |
|00001590| 30 00 80 02 20 80 09 00 | 00 80 09 2e 6c 20 20 63 |0... ...|....l c|
|000015a0| 68 65 63 6b 5f 66 69 74 | 5f 69 6e 5f 74 68 65 5f |heck_fit|_in_the_|
|000015b0| 73 63 72 65 65 6e 5f 79 | 7b 7d 00 20 20 80 15 20 |screen_y|{}. .. |
|000015c0| 62 62 6d 24 2c 62 75 74 | 74 6f 6e 5f 68 65 69 67 |bbm$,but|ton_heig|
|000015d0| 68 74 2c 6e 75 6d 62 65 | 72 5f 6f 66 5f 6d 65 6e |ht,numbe|r_of_men|
|000015e0| 75 73 2c 6e 24 00 20 20 | 80 15 20 6d 65 6e 75 5f |us,n$. |.. menu_|
|000015f0| 69 74 65 6d 73 28 29 2c | 70 6f 73 79 2c 73 63 72 |items(),|posy,scr|
|00001600| 65 65 6e 5f 68 65 69 67 | 68 74 00 00 20 20 6d 61 |een_heig|ht.. ma|
|00001610| 78 5f 69 74 65 6d 73 3d | 30 00 20 20 80 16 20 63 |x_items=|0. .. c|
|00001620| 6f 6c 3d 31 20 80 18 20 | 6e 75 6d 62 65 72 5f 6f |ol=1 .. |number_o|
|00001630| 66 5f 6d 65 6e 75 73 00 | 20 20 20 20 6d 61 78 5f |f_menus.| max_|
|00001640| 69 74 65 6d 73 3d 20 a5 | 8d 20 28 6d 61 78 5f 69 |items= .|. (max_i|
|00001650| 74 65 6d 73 2c 6d 65 6e | 75 5f 69 74 65 6d 73 28 |tems,men|u_items(|
|00001660| 63 6f 6c 29 29 00 20 20 | 80 17 00 00 20 20 6d 61 |col)). |.... ma|
|00001670| 78 5f 68 65 69 67 68 74 | 3d 62 75 74 74 6f 6e 5f |x_height|=button_|
|00001680| 68 65 69 67 68 74 2a 28 | 6d 61 78 5f 69 74 65 6d |height*(|max_item|
|00001690| 73 2b 31 29 00 20 20 80 | 0b 20 70 6f 73 79 2b 6d |s+1). .|. posy+m|
|000016a0| 61 78 5f 68 65 69 67 68 | 74 3e 73 63 72 65 65 6e |ax_heigh|t>screen|
|000016b0| 5f 68 65 69 67 68 74 00 | 20 20 20 20 20 70 6f 73 |_height.| pos|
|000016c0| 79 3d 30 00 20 20 20 20 | 20 80 0b 20 70 6f 73 79 |y=0. | .. posy|
|000016d0| 2b 6d 61 78 5f 68 65 69 | 67 68 74 3e 73 63 72 65 |+max_hei|ght>scre|
|000016e0| 65 6e 5f 68 65 69 67 68 | 74 00 20 20 20 20 20 20 |en_heigh|t. |
|000016f0| 20 b5 8d 20 62 62 6d 24 | 2c 22 57 61 72 6e 69 6e | .. bbm$|,"Warnin|
|00001700| 67 3a 20 54 6f 6f 20 6d | 61 6e 79 20 62 75 74 74 |g: Too m|any butt|
|00001710| 6f 6e 73 2e 22 2b 6e 24 | 2b 22 43 75 74 74 69 6e |ons."+n$|+"Cuttin|
|00001720| 67 20 6e 75 6d 62 65 72 | 20 6f 66 20 62 75 74 74 |g number| of butt|
|00001730| 6f 6e 73 2e 22 2c 22 49 | 20 73 65 65 22 00 20 20 |ons.","I| see". |
|00001740| 20 20 20 20 20 62 75 74 | 74 6f 6e 73 5f 74 6f 70 | but|tons_top|
|00001750| 3d 28 73 63 72 65 65 6e | 5f 68 65 69 67 68 74 2f |=(screen|_height/|
|00001760| 62 75 74 74 6f 6e 5f 68 | 65 69 67 68 74 29 2d 31 |button_h|eight)-1|
|00001770| 00 20 20 20 20 20 20 20 | 80 16 20 63 6f 6c 3d 31 |. |.. col=1|
|00001780| 20 80 18 20 6e 75 6d 62 | 65 72 5f 6f 66 5f 6d 65 | .. numb|er_of_me|
|00001790| 6e 75 73 00 20 20 20 20 | 20 20 20 20 20 6d 65 6e |nus. | men|
|000017a0| 75 5f 69 74 65 6d 73 28 | 63 6f 6c 29 3d 20 a5 89 |u_items(|col)= ..|
|000017b0| 20 28 6d 65 6e 75 5f 69 | 74 65 6d 73 28 63 6f 6c | (menu_i|tems(col|
|000017c0| 29 2c 62 75 74 74 6f 6e | 73 5f 74 6f 70 29 00 20 |),button|s_top). |
|000017d0| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 20 | ..|. |
|000017e0| 80 09 20 80 07 20 32 00 | 20 20 20 20 20 80 c0 00 |.. .. 2.| ...|
|000017f0| 20 20 20 20 20 80 09 20 | 80 07 20 31 00 20 20 80 | .. |.. 1. .|
|00001800| c0 00 20 20 80 09 20 80 | 07 20 30 00 80 02 20 80 |.. .. .|. 0... .|
|00001810| 09 00 00 80 08 20 73 65 | 74 75 70 5f 63 6f 6c 75 |..... se|tup_colu|
|00001820| 6d 6e 73 5f 74 69 74 6c | 65 73 7b 7d 00 20 20 3b |mns_titl|es{}. ;|
|00001830| 53 70 65 63 3a 20 43 72 | 65 61 74 65 73 20 6f 72 |Spec: Cr|eates or|
|00001840| 20 72 65 63 72 65 61 74 | 65 73 20 77 69 6e 64 6f | recreat|es windo|
|00001850| 77 20 63 6f 6e 74 61 69 | 6e 69 6e 67 00 20 20 3b |w contai|ning. ;|
|00001860| 20 20 20 20 20 20 74 69 | 74 6c 65 73 20 6f 66 20 | ti|tles of |
|00001870| 63 6f 6c 75 6d 6e 73 2e | 20 49 74 20 64 6f 65 73 |columns.| It does|
|00001880| 20 6e 6f 20 63 68 65 63 | 6b 69 6e 67 20 61 62 6f | no chec|king abo|
|00001890| 75 74 00 20 20 3b 20 20 | 20 20 20 20 70 6f 73 73 |ut. ; | poss|
|000018a0| 69 62 69 6c 69 74 79 20 | 6f 66 20 66 69 74 74 69 |ibility |of fitti|
|000018b0| 6e 67 20 74 68 69 73 20 | 77 69 6e 64 6f 77 20 69 |ng this |window i|
|000018c0| 6e 20 74 68 65 20 73 63 | 72 65 65 6e 2e 00 00 20 |n the sc|reen... |
|000018d0| 20 80 15 20 63 6f 6c 75 | 6d 6e 5f 74 69 74 6c 65 | .. colu|mn_title|
|000018e0| 24 28 29 00 20 20 80 15 | 20 63 6f 6c 75 6d 6e 5f |$(). ..| column_|
|000018f0| 74 69 74 6c 65 73 5f 73 | 65 74 75 70 5f 62 2c 71 |titles_s|etup_b,q|
|00001900| 75 69 74 5f 62 75 74 74 | 6f 6e 5f 62 00 20 20 80 |uit_butt|on_b. .|
|00001910| 15 20 53 63 72 65 65 6e | 46 6f 6e 74 5f 48 65 69 |. Screen|Font_Hei|
|00001920| 67 68 74 2e 62 2c 62 75 | 74 74 6f 6e 5f 77 69 64 |ght.b,bu|tton_wid|
|00001930| 74 68 2e 6c 2c 62 75 74 | 74 6f 6e 5f 68 65 69 67 |th.l,but|ton_heig|
|00001940| 68 74 00 20 20 80 15 20 | 71 62 5f 6f 66 66 73 65 |ht. .. |qb_offse|
|00001950| 74 2c 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |t,number|_of_menu|
|00001960| 73 00 20 20 80 15 20 70 | 6f 73 78 2c 70 6f 73 79 |s. .. p|osx,posy|
|00001970| 00 00 20 20 80 2b 20 c5 | 01 20 30 00 20 20 80 2b |.. .+ .|. 0. .+|
|00001980| 20 c6 81 20 30 00 00 20 | 20 63 6f 6c 75 6d 6e 5f | .. 0.. | column_|
|00001990| 74 69 74 6c 65 73 5f 73 | 65 74 75 70 5f 62 3d bc |titles_s|etup_b=.|
|000019a0| 0e 00 00 20 20 77 69 6e | 64 6f 77 5f 70 69 78 65 |... win|dow_pixe|
|000019b0| 6c 77 69 64 74 68 3d 62 | 75 74 74 6f 6e 5f 77 69 |lwidth=b|utton_wi|
|000019c0| 64 74 68 2e 6c 2a 6e 75 | 6d 62 65 72 5f 6f 66 5f |dth.l*nu|mber_of_|
|000019d0| 6d 65 6e 75 73 2b 35 2b | 71 62 5f 6f 66 66 73 65 |menus+5+|qb_offse|
|000019e0| 74 00 20 20 62 75 74 74 | 6f 6e 5f 79 6f 66 66 3d |t. butt|on_yoff=|
|000019f0| 2d 33 2d 20 53 63 72 65 | 65 6e 46 6f 6e 74 5f 48 |-3- Scre|enFont_H|
|00001a00| 65 69 67 68 74 2e 62 00 | 00 20 20 80 0b 20 71 75 |eight.b.|. .. qu|
|00001a10| 69 74 5f 62 75 74 74 6f | 6e 5f 62 00 20 20 20 20 |it_butto|n_b. |
|00001a20| c6 82 20 30 2c 30 2c 2d | 34 2c 62 75 74 74 6f 6e |.. 0,0,-|4,button|
|00001a30| 5f 79 6f 66 66 2c 35 2c | 62 75 74 74 6f 6e 5f 68 |_yoff,5,|button_h|
|00001a40| 65 69 67 68 74 2c 22 22 | 2c 31 36 00 20 20 80 c0 |eight,""|,16. ..|
|00001a50| 00 00 20 20 62 68 3d 62 | 75 74 74 6f 6e 5f 68 65 |.. bh=b|utton_he|
|00001a60| 69 67 68 74 00 20 20 62 | 77 3d 62 75 74 74 6f 6e |ight. b|w=button|
|00001a70| 5f 77 69 64 74 68 2e 6c | 00 20 20 62 77 5f 6f 66 |_width.l|. bw_of|
|00001a80| 66 20 3d 20 30 00 20 20 | 80 16 20 69 3d 31 20 80 |f = 0. |.. i=1 .|
|00001a90| 18 20 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |. number|_of_menu|
|00001aa0| 73 00 20 20 20 20 c6 82 | 20 30 2c 69 2c 62 77 5f |s. ..| 0,i,bw_|
|00001ab0| 6f 66 66 2b 31 2b 71 62 | 5f 6f 66 66 73 65 74 2c |off+1+qb|_offset,|
|00001ac0| 62 75 74 74 6f 6e 5f 79 | 6f 66 66 2c 62 77 2c 62 |button_y|off,bw,b|
|00001ad0| 68 2c 63 6f 6c 75 6d 6e | 5f 74 69 74 6c 65 24 28 |h,column|_title$(|
|00001ae0| 69 29 2c 31 36 00 20 20 | 20 20 c6 9c 20 30 2c 69 |i),16. | .. 0,i|
|00001af0| 2c 80 c5 00 20 20 20 20 | 62 77 5f 6f 66 66 20 3d |,... |bw_off =|
|00001b00| 20 62 77 5f 6f 66 66 2b | 62 75 74 74 6f 6e 5f 77 | bw_off+|button_w|
|00001b10| 69 64 74 68 2e 6c 00 20 | 20 80 17 00 00 20 20 c5 |idth.l. | .... .|
|00001b20| 01 20 30 2c 70 6f 73 78 | 2c 70 6f 73 79 2c 77 69 |. 0,posx|,posy,wi|
|00001b30| 6e 64 6f 77 5f 70 69 78 | 65 6c 77 69 64 74 68 2c |ndow_pix|elwidth,|
|00001b40| 62 75 74 74 6f 6e 5f 68 | 65 69 67 68 74 2c 24 31 |button_h|eight,$1|
|00001b50| 38 30 30 2c 22 22 2c 31 | 2c 32 00 20 20 c5 3b 20 |800,"",1|,2. .; |
|00001b60| 22 22 2c 22 42 75 74 74 | 6f 6e 42 61 72 22 00 20 |"","Butt|onBar". |
|00001b70| 20 c6 8e 20 30 2c 30 00 | 20 20 c4 02 20 30 00 00 | .. 0,0.| .. 0..|
|00001b80| 80 02 20 80 08 00 00 80 | 08 20 73 65 74 75 70 5f |.. .....|. setup_|
|00001b90| 63 6f 6c 75 6d 6e 7b 63 | 6f 6c 75 6d 6e 7d 00 20 |column{c|olumn}. |
|00001ba0| 20 80 15 20 74 69 74 72 | 65 24 28 29 2c 73 65 71 | .. titr|e$(),seq|
|00001bb0| 75 65 6e 63 65 24 28 29 | 2c 6d 65 6e 75 5f 69 74 |uence$()|,menu_it|
|00001bc0| 65 6d 73 28 29 2c 63 6f | 6c 75 6d 6e 5f 6f 70 65 |ems(),co|lumn_ope|
|00001bd0| 6e 5f 62 28 29 00 20 20 | 80 15 20 62 75 74 74 6f |n_b(). |.. butto|
|00001be0| 6e 5f 68 65 69 67 68 74 | 2c 62 75 74 74 6f 6e 5f |n_height|,button_|
|00001bf0| 77 69 64 74 68 2e 6c 00 | 20 20 80 15 20 53 63 72 |width.l.| .. Scr|
|00001c00| 65 65 6e 46 6f 6e 74 5f | 48 65 69 67 68 74 2e 62 |eenFont_|Height.b|
|00001c10| 00 20 20 80 15 20 6d 65 | 6e 75 5f 74 6f 5f 62 65 |. .. me|nu_to_be|
|00001c20| 5f 6f 70 65 6e 5f 62 28 | 29 2c 63 6f 6c 75 6d 6e |_open_b(|),column|
|00001c30| 5f 73 65 74 75 70 5f 62 | 28 29 00 00 20 20 80 0b |_setup_b|().. ..|
|00001c40| 20 6d 65 6e 75 5f 74 6f | 5f 62 65 5f 6f 70 65 6e | menu_to|_be_open|
|00001c50| 5f 62 28 63 6f 6c 75 6d | 6e 29 00 20 20 20 20 20 |_b(colum|n). |
|00001c60| 63 6f 6c 75 6d 6e 5f 6f | 70 65 6e 5f 62 28 63 6f |column_o|pen_b(co|
|00001c70| 6c 75 6d 6e 29 3d bc 0e | 00 20 20 80 c0 00 00 20 |lumn)=..|. .... |
|00001c80| 20 80 2b 20 c5 01 20 63 | 6f 6c 75 6d 6e 20 3a 20 | .+ .. c|olumn : |
|00001c90| 80 2b 20 c6 81 20 63 6f | 6c 75 6d 6e 00 00 20 20 |.+ .. co|lumn.. |
|00001ca0| 62 75 74 74 6f 6e 5f 79 | 6f 66 66 3d 2d 33 2d 20 |button_y|off=-3- |
|00001cb0| 53 63 72 65 65 6e 46 6f | 6e 74 5f 48 65 69 67 68 |ScreenFo|nt_Heigh|
|00001cc0| 74 2e 62 00 20 20 62 68 | 3d 62 75 74 74 6f 6e 5f |t.b. bh|=button_|
|00001cd0| 68 65 69 67 68 74 00 20 | 20 62 77 3d 62 75 74 74 |height. | bw=butt|
|00001ce0| 6f 6e 5f 77 69 64 74 68 | 2e 6c 00 00 20 20 80 16 |on_width|.l.. ..|
|00001cf0| 20 6a 3d 32 20 80 18 20 | 6d 65 6e 75 5f 69 74 65 | j=2 .. |menu_ite|
|00001d00| 6d 73 28 63 6f 6c 75 6d | 6e 29 00 20 20 20 20 62 |ms(colum|n). b|
|00001d10| 75 74 74 6f 6e 5f 74 65 | 78 74 24 3d 74 69 74 72 |utton_te|xt$=titr|
|00001d20| 65 24 28 63 6f 6c 75 6d | 6e 2c 6a 29 00 20 20 20 |e$(colum|n,j). |
|00001d30| 20 c6 82 20 63 6f 6c 75 | 6d 6e 2c 6a 2c 2d 33 2c | .. colu|mn,j,-3,|
|00001d40| 62 68 2a 28 6a 2d 32 29 | 2b 62 75 74 74 6f 6e 5f |bh*(j-2)|+button_|
|00001d50| 79 6f 66 66 2c 62 77 2c | 62 68 2c 62 75 74 74 6f |yoff,bw,|bh,butto|
|00001d60| 6e 5f 74 65 78 74 24 2c | 31 36 00 20 20 20 20 80 |n_text$,|16. .|
|00001d70| 0b 20 73 65 71 75 65 6e | 63 65 24 28 63 6f 6c 75 |. sequen|ce$(colu|
|00001d80| 6d 6e 2c 6a 29 3d 22 5c | 74 69 74 6c 65 22 20 3a |mn,j)="\|title" :|
|00001d90| 20 c6 9c 20 63 6f 6c 75 | 6d 6e 2c 6a 2c 80 c5 20 | .. colu|mn,j,.. |
|00001da0| 3a 20 80 c0 00 20 20 80 | 17 00 00 20 20 80 0b 20 |: ... .|... .. |
|00001db0| 63 6f 6c 75 6d 6e 5f 6f | 70 65 6e 5f 62 28 63 6f |column_o|pen_b(co|
|00001dc0| 6c 75 6d 6e 29 00 20 20 | 20 20 63 6f 6c 75 6d 6e |lumn). | column|
|00001dd0| 5f 6f 70 65 6e 5f 62 28 | 63 6f 6c 75 6d 6e 29 3d |_open_b(|column)=|
|00001de0| bc 0f 20 20 3b 46 6f 72 | 63 65 20 6f 70 65 6e 5f |.. ;For|ce open_|
|00001df0| 63 6f 6c 75 6d 6e 20 74 | 6f 20 64 6f 20 6f 70 65 |column t|o do ope|
|00001e00| 6e 00 20 20 20 20 6f 70 | 65 6e 5f 63 6f 6c 75 6d |n. op|en_colum|
|00001e10| 6e 7b 63 6f 6c 75 6d 6e | 7d 00 20 20 80 c0 00 80 |n{column|}. ....|
|00001e20| 02 20 80 08 00 00 80 08 | 20 73 65 74 75 70 5f 61 |. ......| setup_a|
|00001e30| 6c 6c 5f 77 69 6e 64 6f | 77 73 7b 7d 00 20 20 20 |ll_windo|ws{}. |
|00001e40| 80 15 20 6e 75 6d 62 65 | 72 5f 6f 66 5f 6d 65 6e |.. numbe|r_of_men|
|00001e50| 75 73 00 00 20 20 20 73 | 65 74 75 70 5f 63 6f 6c |us.. s|etup_col|
|00001e60| 75 6d 6e 73 5f 74 69 74 | 6c 65 73 7b 7d 00 20 20 |umns_tit|les{}. |
|00001e70| 20 80 16 20 63 6f 6c 3d | 31 20 80 18 20 6e 75 6d | .. col=|1 .. num|
|00001e80| 62 65 72 5f 6f 66 5f 6d | 65 6e 75 73 00 20 20 20 |ber_of_m|enus. |
|00001e90| 20 20 73 65 74 75 70 5f | 63 6f 6c 75 6d 6e 7b 63 | setup_|column{c|
|00001ea0| 6f 6c 7d 00 20 20 20 80 | 17 00 80 02 20 80 08 00 |ol}. .|.... ...|
|00001eb0| 00 80 08 20 73 65 74 5f | 72 61 77 6b 65 79 7b 6d |... set_|rawkey{m|
|00001ec0| 65 6e 75 2c 69 74 65 6d | 2c 6c 69 6e 65 5f 24 7d |enu,item|,line_$}|
|00001ed0| 00 20 20 20 80 15 20 61 | 73 63 69 69 5f 74 6f 5f |. .. a|scii_to_|
|00001ee0| 72 61 77 6b 65 79 28 29 | 2c 69 74 65 6d 5f 72 61 |rawkey()|,item_ra|
|00001ef0| 77 6b 65 79 28 29 00 00 | 20 20 20 73 65 70 61 72 |wkey()..| separ|
|00001f00| 70 6f 73 3d dc 89 28 6c | 69 6e 65 5f 24 2c 22 5f |pos=..(l|ine_$,"_|
|00001f10| 22 29 00 20 20 20 80 0b | 20 73 65 70 61 72 70 6f |"). ..| separpo|
|00001f20| 73 3e 30 00 20 20 20 20 | 20 20 72 61 77 5f 6b 65 |s>0. | raw_ke|
|00001f30| 79 2e 62 20 3d 61 73 63 | 69 69 5f 74 6f 5f 72 61 |y.b =asc|ii_to_ra|
|00001f40| 77 6b 65 79 28 dc 87 28 | dc 98 28 dc 83 28 6c 69 |wkey(..(|..(..(li|
|00001f50| 6e 65 5f 24 2c 73 65 70 | 61 72 70 6f 73 2b 31 2c |ne_$,sep|arpos+1,|
|00001f60| 31 29 29 29 29 00 20 20 | 20 20 20 20 69 74 65 6d |1)))). | item|
|00001f70| 5f 72 61 77 6b 65 79 28 | 6d 65 6e 75 2c 69 74 65 |_rawkey(|menu,ite|
|00001f80| 6d 29 3d 72 61 77 5f 6b | 65 79 2e 62 00 20 20 20 |m)=raw_k|ey.b. |
|00001f90| 20 20 20 71 5f 69 73 5f | 6b 65 79 5f 66 6f 72 5f | q_is_|key_for_|
|00001fa0| 71 75 69 74 5f 62 20 3d | 20 28 72 61 77 5f 6b 65 |quit_b =| (raw_ke|
|00001fb0| 79 2e 62 3c 3e 31 36 29 | 20 80 42 20 71 5f 69 73 |y.b<>16)| .B q_is|
|00001fc0| 5f 6b 65 79 5f 66 6f 72 | 5f 71 75 69 74 5f 62 3b |_key_for|_quit_b;|
|00001fd0| 20 20 20 20 31 36 20 69 | 73 20 71 5f 72 61 77 6b | 16 i|s q_rawk|
|00001fe0| 65 79 00 20 20 20 80 22 | 00 20 20 20 20 20 20 69 |ey. ."|. i|
|00001ff0| 74 65 6d 5f 72 61 77 6b | 65 79 28 6d 65 6e 75 2c |tem_rawk|ey(menu,|
|00002000| 69 74 65 6d 29 3d 30 00 | 20 20 20 80 c0 00 80 02 |item)=0.| .....|
|00002010| 20 80 08 00 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ....;--|--------|
|00002020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002050| 2d 2d 2d 2d 00 00 2e 73 | 74 61 72 74 00 00 00 80 |----...s|tart....|
|00002060| 16 20 69 3d 31 20 80 18 | 20 32 30 00 20 20 63 6f |. i=1 ..| 20. co|
|00002070| 6c 75 6d 6e 5f 6f 70 65 | 6e 5f 62 28 69 29 20 20 |lumn_ope|n_b(i) |
|00002080| 20 20 20 20 20 3d 20 bc | 0f 00 20 20 6d 65 6e 75 | = .|.. menu|
|00002090| 5f 74 6f 5f 62 65 5f 6f | 70 65 6e 5f 62 28 69 29 |_to_be_o|pen_b(i)|
|000020a0| 20 3d 20 bc 0f 00 20 20 | 63 6f 6c 75 6d 6e 5f 73 | = ... |column_s|
|000020b0| 65 74 75 70 5f 62 28 69 | 29 20 20 20 20 3d 20 bc |etup_b(i|) = .|
|000020c0| 0f 00 80 17 00 71 5f 69 | 73 5f 6b 65 79 5f 66 6f |.....q_i|s_key_fo|
|000020d0| 72 5f 71 75 69 74 5f 62 | 20 3d 20 bc 0e 00 63 75 |r_quit_b| = ...cu|
|000020e0| 72 73 6f 72 5f 78 20 3d | 20 30 00 63 75 72 73 6f |rsor_x =| 0.curso|
|000020f0| 72 5f 79 20 3d 20 30 00 | 00 80 16 20 6d 65 6e 75 |r_y = 0.|... menu|
|00002100| 3d 31 20 80 18 20 38 00 | 20 20 80 16 20 69 74 65 |=1 .. 8.| .. ite|
|00002110| 6d 3d 31 20 80 18 20 32 | 31 00 20 20 20 20 69 74 |m=1 .. 2|1. it|
|00002120| 65 6d 5f 72 61 77 6b 65 | 79 28 6d 65 6e 75 2c 69 |em_rawke|y(menu,i|
|00002130| 74 65 6d 29 3d 30 00 20 | 20 80 17 00 80 17 00 00 |tem)=0. | .......|
|00002140| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00002150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 00 3b 20 20 | 20 20 20 20 20 20 20 20 |----.; | |
|00002190| 20 50 20 52 20 4f 20 43 | 20 45 20 53 20 53 20 49 | P R O C| E S S I|
|000021a0| 20 4e 20 47 20 20 20 4f | 20 46 20 20 20 4d 20 45 | N G O| F M E|
|000021b0| 20 4e 20 55 20 46 20 49 | 20 4c 20 45 00 00 2e 6d | N U F I| L E...m|
|000021c0| 65 6e 75 70 61 72 73 65 | 00 00 80 0b 20 28 be 11 |enuparse|.... (..|
|000021d0| 20 28 23 46 31 2c 6d 65 | 6e 75 66 69 6c 65 24 29 | (#F1,me|nufile$)|
|000021e0| 29 3d bc 0f 00 20 20 cf | 02 20 30 00 20 20 b5 8d |)=... .|. 0. ..|
|000021f0| 20 22 42 75 74 74 6f 6e | 42 61 72 20 6d 65 73 73 | "Button|Bar mess|
|00002200| 61 67 65 22 2c 22 43 61 | 6e 6e 6f 74 20 66 69 6e |age","Ca|nnot fin|
|00002210| 64 20 6d 65 6e 75 66 69 | 6c 65 3a 22 2b 6e 24 2b |d menufi|le:"+n$+|
|00002220| 6d 65 6e 75 66 69 6c 65 | 24 2c 22 49 20 73 65 65 |menufile|$,"I see|
|00002230| 22 00 20 20 80 02 00 80 | c0 00 00 3b 20 74 69 74 |". ....|...; tit|
|00002240| 72 65 24 28 69 2c 31 29 | 20 20 20 20 20 20 20 20 |re$(i,1)| |
|00002250| 20 20 2d 20 4d 65 6e 75 | 20 74 69 74 6c 65 00 3b | - Menu| title.;|
|00002260| 20 74 69 74 72 65 24 28 | 69 2c 32 2e 2e 29 20 20 | titre$(|i,2..) |
|00002270| 20 20 20 20 20 20 2d 20 | 49 74 65 6d 20 74 69 74 | - |Item tit|
|00002280| 6c 65 00 3b 20 73 65 71 | 75 65 6e 63 65 24 28 69 |le.; seq|uence$(i|
|00002290| 2c 32 2e 2e 29 20 20 20 | 20 20 2d 20 53 65 71 75 |,2..) | - Sequ|
|000022a0| 65 6e 63 65 20 74 6f 20 | 62 65 20 65 78 65 63 75 |ence to |be execu|
|000022b0| 74 65 64 00 3b 20 6d 65 | 6e 75 5f 69 74 65 6d 73 |ted.; me|nu_items|
|000022c0| 28 6d 65 6e 75 29 20 20 | 20 20 20 2d 20 4d 65 6e |(menu) | - Men|
|000022d0| 75 20 4c 65 6e 67 74 68 | 00 00 00 20 20 20 20 20 |u Length|... |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002300| 44 20 45 20 46 20 41 20 | 55 20 4c 20 54 20 53 00 |D E F A |U L T S.|
|00002310| 00 66 6f 6e 74 5f 75 73 | 65 72 5f 62 20 20 20 20 |.font_us|er_b |
|00002320| 20 20 20 20 20 3d 20 bc | 0f 00 71 75 69 74 5f 62 | = .|..quit_b|
|00002330| 75 74 74 6f 6e 5f 62 20 | 20 20 20 20 20 20 3d 20 |utton_b | = |
|00002340| bc 0f 00 73 74 61 62 6c | 65 5f 62 61 72 5f 62 20 |...stabl|e_bar_b |
|00002350| 20 20 20 20 20 20 20 3d | 20 bc 0f 00 66 6f 6e 74 | =| ...font|
|00002360| 24 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$ | |
|00002370| 3d 20 22 74 6f 70 61 7a | 2e 66 6f 6e 74 22 00 66 |= "topaz|.font".f|
|00002380| 6f 6e 74 5f 68 65 69 67 | 68 74 20 20 20 20 20 20 |ont_heig|ht |
|00002390| 20 20 20 3d 20 38 00 70 | 6f 73 78 20 20 20 20 20 | = 8.p|osx |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 3d 20 37 00 70 | | = 7.p|
|000023b0| 6f 73 79 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |osy | |
|000023c0| 20 20 20 3d 20 e0 82 2d | 31 33 00 65 78 63 6c 75 | = ..-|13.exclu|
|000023d0| 73 69 76 65 5f 6d 65 6e | 75 73 5f 62 20 20 20 3d |sive_men|us_b =|
|000023e0| 20 bc 0f 00 6d 65 6e 75 | 73 5f 70 72 65 66 65 72 | ...menu|s_prefer|
|000023f0| 65 64 5f 64 69 72 65 63 | 74 69 6f 6e 20 20 3d 20 |ed_direc|tion = |
|00002400| 31 00 66 69 78 65 64 5f | 6f 70 65 6e 5f 62 20 20 |1.fixed_|open_b |
|00002410| 20 20 20 20 20 20 3d 20 | bc 0f 00 72 75 6e 61 6e | = |...runan|
|00002420| 64 64 69 65 5f 62 20 20 | 20 20 20 20 20 20 20 3d |ddie_b | =|
|00002430| 20 bc 0f 00 72 75 6e 61 | 6e 64 73 6c 65 65 70 5f | ...runa|ndsleep_|
|00002440| 62 20 20 20 20 20 20 20 | 3d 20 bc 0f 00 6f 70 65 |b |= ...ope|
|00002450| 6e 5f 6f 6e 5f 77 62 5f | 62 20 20 20 20 20 20 20 |n_on_wb_|b |
|00002460| 20 3d 20 bc 0f 00 62 75 | 74 74 6f 6e 5f 77 69 64 | = ...bu|tton_wid|
|00002470| 74 68 2e 6c 20 20 20 20 | 20 20 20 20 3d 20 39 30 |th.l | = 90|
|00002480| 00 68 6f 74 6b 65 79 24 | 20 20 20 20 20 20 20 20 |.hotkey$| |
|00002490| 20 20 20 20 20 3d 20 22 | 22 00 6f 70 65 6e 6d 65 | = "|".openme|
|000024a0| 6e 75 5f 6f 70 74 69 6f | 6e 20 20 20 20 20 3d 20 |nu_optio|n = |
|000024b0| 2d 31 00 70 72 65 66 69 | 78 24 20 20 20 20 20 20 |-1.prefi|x$ |
|000024c0| 20 20 20 20 20 20 20 3d | 20 22 22 00 61 75 74 6f | =| "".auto|
|000024d0| 63 6c 6f 73 65 5f 62 20 | 20 20 20 20 20 20 20 20 |close_b | |
|000024e0| 3d 20 bc 0f 00 00 be 08 | 20 23 46 31 00 00 6d 65 |= ......| #F1..me|
|000024f0| 6e 75 3d 31 2d 31 00 80 | 0c 20 be 0d 28 23 46 31 |nu=1-1..|. ..(#F1|
|00002500| 29 3d bc 0f 00 20 20 6c | 69 6e 65 5f 24 20 20 20 |)=... l|ine_$ |
|00002510| 20 20 20 20 20 20 20 20 | 20 3d 20 dd 01 28 31 36 | | = ..(16|
|00002520| 30 29 00 20 20 6c 69 6e | 65 5f 6c 65 6e 20 20 20 |0). lin|e_len |
|00002530| 20 20 20 20 20 20 20 3d | 20 dc 8f 28 6c 69 6e 65 | =| ..(line|
|00002540| 5f 24 29 00 20 20 6e 6f | 5f 63 6f 6e 74 69 6e 75 |_$). no|_continu|
|00002550| 65 20 20 20 20 20 20 20 | 3d 20 bc 0e 00 20 20 80 |e |= ... .|
|00002560| 0b 20 6c 69 6e 65 5f 24 | 3c 3e 22 22 00 20 20 20 |. line_$|<>"". |
|00002570| 20 63 68 24 3d dc 81 28 | 6c 69 6e 65 5f 24 2c 31 | ch$=..(|line_$,1|
|00002580| 29 00 20 20 20 20 80 0b | 20 63 68 24 3d 22 3b 22 |). ..| ch$=";"|
|00002590| 20 80 8a 20 63 68 24 3d | 22 23 22 20 80 8a 20 63 | .. ch$=|"#" .. c|
|000025a0| 68 24 3d 22 2f 22 00 20 | 20 20 20 20 20 80 05 20 |h$="/". | .. |
|000025b0| 65 6e 64 70 61 72 73 65 | 77 68 69 6c 65 00 20 20 |endparse|while. |
|000025c0| 20 20 80 c0 00 00 20 20 | 20 20 80 0b 20 63 68 24 | .... | .. ch$|
|000025d0| 3d 22 3a 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |=":" | |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 4d 45 4e 55 | | ; MENU|
|000025f0| 54 49 54 4c 45 00 20 20 | 20 20 20 20 80 0b 20 6d |TITLE. | .. m|
|00002600| 65 6e 75 3e 30 00 20 20 | 20 20 20 20 20 20 6d 65 |enu>0. | me|
|00002610| 6e 75 5f 69 74 65 6d 73 | 28 6d 65 6e 75 29 3d 69 |nu_items|(menu)=i|
|00002620| 74 65 6d 00 20 20 20 20 | 20 20 80 c0 00 20 20 20 |tem. | ... |
|00002630| 20 20 20 6d 65 6e 75 3d | 6d 65 6e 75 2b 31 00 20 | menu=|menu+1. |
|00002640| 20 20 20 20 20 63 6f 6c | 75 6d 6e 5f 74 69 74 6c | col|umn_titl|
|00002650| 65 24 28 6d 65 6e 75 29 | 3d dc 82 28 6c 69 6e 65 |e$(menu)|=..(line|
|00002660| 5f 24 2c dc 8f 28 6c 69 | 6e 65 5f 24 29 2d 31 29 |_$,..(li|ne_$)-1)|
|00002670| 00 20 20 20 20 20 20 69 | 74 65 6d 3d 32 2d 31 00 |. i|tem=2-1.|
|00002680| 20 20 20 20 20 20 65 78 | 70 65 63 74 65 64 5f 66 | ex|pected_f|
|00002690| 69 65 6c 64 3d 30 00 20 | 20 20 20 20 20 80 05 20 |ield=0. | .. |
|000026a0| 65 6e 64 70 61 72 73 65 | 77 68 69 6c 65 00 20 20 |endparse|while. |
|000026b0| 20 20 80 c0 00 00 20 20 | 20 20 80 0b 20 6d 65 6e | .... | .. men|
|000026c0| 75 3e 30 00 20 20 20 20 | 20 20 80 0b 20 65 78 70 |u>0. | .. exp|
|000026d0| 65 63 74 65 64 5f 66 69 | 65 6c 64 3d 30 00 20 20 |ected_fi|eld=0. |
|000026e0| 20 20 20 20 20 20 69 74 | 65 6d 3d 69 74 65 6d 2b | it|em=item+|
|000026f0| 31 00 20 20 20 20 20 20 | 20 20 73 65 74 5f 72 61 |1. | set_ra|
|00002700| 77 6b 65 79 7b 6d 65 6e | 75 2c 69 74 65 6d 2c 6c |wkey{men|u,item,l|
|00002710| 69 6e 65 5f 24 7d 00 20 | 20 20 20 20 20 20 20 74 |ine_$}. | t|
|00002720| 69 74 72 65 24 28 6d 65 | 6e 75 2c 69 74 65 6d 29 |itre$(me|nu,item)|
|00002730| 3d 6c 69 6e 65 5f 24 00 | 20 20 20 20 20 20 80 22 |=line_$.| ."|
|00002740| 00 20 20 20 20 20 20 20 | 20 73 65 71 75 65 6e 63 |. | sequenc|
|00002750| 65 24 28 6d 65 6e 75 2c | 69 74 65 6d 29 3d 6c 69 |e$(menu,|item)=li|
|00002760| 6e 65 5f 24 00 20 20 20 | 20 20 20 80 c0 00 20 20 |ne_$. | ... |
|00002770| 20 20 20 20 65 78 70 65 | 63 74 65 64 5f 66 69 65 | expe|cted_fie|
|00002780| 6c 64 3d 31 2d 65 78 70 | 65 63 74 65 64 5f 66 69 |ld=1-exp|ected_fi|
|00002790| 65 6c 64 00 20 20 20 20 | 20 20 80 05 20 65 6e 64 |eld. | .. end|
|000027a0| 70 61 72 73 65 77 68 69 | 6c 65 00 20 20 20 20 80 |parsewhi|le. .|
|000027b0| c0 00 00 00 20 20 20 20 | 3b 20 20 20 20 20 20 20 |.... |; |
|000027c0| 20 20 20 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ====|========|
|000027d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000027e0| 3d 3d 3d 3d 3d 3d 00 20 | 20 20 20 3b 20 20 20 20 |======. | ; |
|000027f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002800| 20 50 72 65 6d 65 6e 75 | 20 74 61 67 73 00 20 20 | Premenu| tags. |
|00002810| 20 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 3d 3d | ; | ==|
|00002820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002840| 00 00 00 20 20 20 20 80 | 0b 20 dc 89 28 6c 69 6e |... .|. ..(lin|
|00002850| 65 5f 24 2c 20 22 5c 22 | 29 3e 30 00 20 20 20 20 |e_$, "\"|)>0. |
|00002860| 20 20 6c 24 20 20 20 20 | 20 20 20 20 20 20 20 20 | l$ | |
|00002870| 20 20 20 3d 20 dc 97 28 | 6c 69 6e 65 5f 24 29 00 | = ..(|line_$).|
|00002880| 00 20 20 20 20 20 20 71 | 75 69 74 5f 62 75 74 74 |. q|uit_butt|
|00002890| 6f 6e 5f 62 20 20 20 20 | 20 20 3d 20 28 dc 89 28 |on_b | = (..(|
|000028a0| 6c 24 2c 20 22 5c 71 75 | 69 74 62 75 74 74 6f 6e |l$, "\qu|itbutton|
|000028b0| 22 29 3e 30 29 20 20 20 | 20 20 20 20 20 80 8a 20 |")>0) | .. |
|000028c0| 71 75 69 74 5f 62 75 74 | 74 6f 6e 5f 62 00 20 20 |quit_but|ton_b. |
|000028d0| 20 20 20 20 73 74 61 62 | 6c 65 5f 62 61 72 5f 62 | stab|le_bar_b|
|000028e0| 20 20 20 20 20 20 20 3d | 20 28 dc 89 28 6c 24 2c | =| (..(l$,|
|000028f0| 20 22 5c 73 74 61 62 6c | 65 62 61 72 22 29 3e 30 | "\stabl|ebar")>0|
|00002900| 29 20 20 20 20 20 20 20 | 20 20 80 8a 20 73 74 61 |) | .. sta|
|00002910| 62 6c 65 5f 62 61 72 5f | 62 00 20 20 20 20 20 20 |ble_bar_|b. |
|00002920| 65 78 63 6c 75 73 69 76 | 65 5f 6d 65 6e 75 73 5f |exclusiv|e_menus_|
|00002930| 62 20 20 3d 20 28 dc 89 | 28 6c 24 2c 20 22 5c 65 |b = (..|(l$, "\e|
|00002940| 78 63 6c 75 73 69 76 65 | 6d 65 6e 75 73 22 29 3e |xclusive|menus")>|
|00002950| 30 29 20 20 20 20 80 8a | 20 65 78 63 6c 75 73 69 |0) ..| exclusi|
|00002960| 76 65 5f 6d 65 6e 75 73 | 5f 62 00 20 20 20 20 20 |ve_menus|_b. |
|00002970| 20 66 69 78 65 64 5f 6f | 70 65 6e 5f 62 20 20 20 | fixed_o|pen_b |
|00002980| 20 20 20 20 3d 20 28 dc | 89 28 6c 24 2c 20 22 5c | = (.|.(l$, "\|
|00002990| 66 69 78 65 64 6f 70 65 | 6e 22 29 3e 30 29 20 20 |fixedope|n")>0) |
|000029a0| 20 20 20 20 20 20 20 80 | 8a 20 66 69 78 65 64 5f | .|. fixed_|
|000029b0| 6f 70 65 6e 5f 62 00 20 | 20 20 20 20 20 72 75 6e |open_b. | run|
|000029c0| 61 6e 64 64 69 65 5f 62 | 20 20 20 20 20 20 20 20 |anddie_b| |
|000029d0| 3d 20 28 dc 89 28 6c 24 | 2c 20 22 5c 72 75 6e 61 |= (..(l$|, "\runa|
|000029e0| 6e 64 64 69 65 22 29 3e | 30 29 20 20 20 20 20 20 |nddie")>|0) |
|000029f0| 20 20 20 80 8a 20 72 75 | 6e 61 6e 64 64 69 65 5f | .. ru|nanddie_|
|00002a00| 62 00 20 20 20 20 20 20 | 72 75 6e 61 6e 64 73 6c |b. |runandsl|
|00002a10| 65 65 70 5f 62 20 20 20 | 20 20 20 3d 20 28 dc 89 |eep_b | = (..|
|00002a20| 28 6c 24 2c 20 22 5c 72 | 75 6e 61 6e 64 73 6c 65 |(l$, "\r|unandsle|
|00002a30| 65 70 22 29 3e 30 29 20 | 20 20 20 20 20 20 80 8a |ep")>0) | ..|
|00002a40| 20 72 75 6e 61 6e 64 73 | 6c 65 65 70 5f 62 00 20 | runands|leep_b. |
|00002a50| 20 20 20 20 20 6f 70 65 | 6e 5f 6f 6e 5f 77 62 5f | ope|n_on_wb_|
|00002a60| 62 20 20 20 20 20 20 20 | 3d 20 28 dc 89 28 6c 24 |b |= (..(l$|
|00002a70| 2c 20 22 5c 77 6f 72 6b | 62 65 6e 63 68 22 29 3e |, "\work|bench")>|
|00002a80| 30 29 20 20 20 20 20 20 | 20 20 20 80 8a 20 6f 70 |0) | .. op|
|00002a90| 65 6e 5f 6f 6e 5f 77 62 | 5f 62 00 20 20 20 20 20 |en_on_wb|_b. |
|00002aa0| 20 63 6c 6f 73 65 64 5f | 6d 65 6e 75 5f 6b 65 79 | closed_|menu_key|
|00002ab0| 73 5f 62 20 3d 20 28 dc | 89 28 6c 24 2c 20 22 5c |s_b = (.|.(l$, "\|
|00002ac0| 61 6c 6c 6b 65 79 73 22 | 29 3e 30 29 20 20 20 20 |allkeys"|)>0) |
|00002ad0| 20 20 20 20 20 20 20 80 | 8a 20 63 6c 6f 73 65 64 | .|. closed|
|00002ae0| 5f 6d 65 6e 75 5f 6b 65 | 79 73 5f 62 00 20 20 20 |_menu_ke|ys_b. |
|00002af0| 20 20 20 6f 70 65 6e 5f | 6f 6e 5f 68 6f 74 6b 65 | open_|on_hotke|
|00002b00| 79 5f 62 20 20 20 3d 20 | 28 dc 89 28 6c 24 2c 20 |y_b = |(..(l$, |
|00002b10| 22 5c 6f 70 65 6e 6f 6e | 68 6f 74 6b 65 79 22 29 |"\openon|hotkey")|
|00002b20| 3e 30 29 20 20 20 20 20 | 20 80 8a 20 6f 70 65 6e |>0) | .. open|
|00002b30| 5f 6f 6e 5f 68 6f 74 6b | 65 79 5f 62 00 20 20 20 |_on_hotk|ey_b. |
|00002b40| 20 20 20 61 75 74 6f 63 | 6c 6f 73 65 5f 62 20 20 | autoc|lose_b |
|00002b50| 20 20 20 20 20 20 3d 20 | 28 dc 89 28 6c 24 2c 20 | = |(..(l$, |
|00002b60| 22 5c 61 75 74 6f 63 6c | 6f 73 65 22 29 3e 30 29 |"\autocl|ose")>0)|
|00002b70| 20 20 20 20 20 20 20 20 | 20 80 8a 20 61 75 74 6f | | .. auto|
|00002b80| 63 6c 6f 73 65 5f 62 00 | 20 20 20 20 20 20 80 0b |close_b.| ..|
|00002b90| 20 dc 89 28 6c 24 2c 22 | 5c 6f 70 65 6e 64 6f 77 | ..(l$,"|\opendow|
|00002ba0| 6e 22 29 20 3a 20 6d 65 | 6e 75 73 5f 70 72 65 66 |n") : me|nus_pref|
|00002bb0| 65 72 65 64 5f 64 69 72 | 65 63 74 69 6f 6e 3d 2d |ered_dir|ection=-|
|00002bc0| 31 20 3a 20 80 c0 00 00 | 20 20 20 20 20 20 74 61 |1 : ....| ta|
|00002bd0| 67 70 6f 73 20 20 20 20 | 20 20 20 20 20 20 20 3d |gpos | =|
|00002be0| 20 dc 89 28 6c 24 2c 20 | 22 5c 70 72 65 66 69 78 | ..(l$, |"\prefix|
|00002bf0| 22 29 20 3a 20 80 0b 20 | 74 61 67 70 6f 73 3e 30 |") : .. |tagpos>0|
|00002c00| 00 20 20 20 20 20 20 20 | 20 70 72 65 66 69 78 24 |. | prefix$|
|00002c10| 3d dc 91 28 6c 24 2c 74 | 61 67 70 6f 73 2b 37 29 |=..(l$,t|agpos+7)|
|00002c20| 00 20 20 20 20 20 20 20 | 20 80 05 20 65 6e 64 70 |. | .. endp|
|00002c30| 61 72 73 65 77 68 69 6c | 65 00 20 20 20 20 20 20 |arsewhil|e. |
|00002c40| 80 c0 00 00 20 20 20 20 | 20 20 74 61 67 70 6f 73 |.... | tagpos|
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 3d 20 dc 89 28 | | = ..(|
|00002c60| 6c 24 2c 20 22 5c 70 6f | 73 69 74 69 6f 6e 20 22 |l$, "\po|sition "|
|00002c70| 29 20 3a 20 80 0b 20 74 | 61 67 70 6f 73 3e 30 00 |) : .. t|agpos>0.|
|00002c80| 20 20 20 20 20 20 20 20 | 74 24 3d dc 91 28 6c 24 | |t$=..(l$|
|00002c90| 2c 74 61 67 70 6f 73 2b | 39 29 00 20 20 20 20 20 |,tagpos+|9). |
|00002ca0| 20 20 20 73 65 70 61 72 | 61 74 65 5f 70 6f 73 3d | separ|ate_pos=|
|00002cb0| a5 8d 28 30 2c dc 89 28 | 74 24 2c 22 2c 22 29 29 |..(0,..(|t$,","))|
|00002cc0| 00 20 20 20 20 20 20 20 | 20 70 6f 73 78 3d bc 01 |. | posx=..|
|00002cd0| 28 dc 81 28 74 24 2c 73 | 65 70 61 72 61 74 65 5f |(..(t$,s|eparate_|
|00002ce0| 70 6f 73 2d 31 29 29 00 | 20 20 20 20 20 20 20 20 |pos-1)).| |
|00002cf0| 70 6f 73 79 3d bc 01 28 | dc 91 28 74 24 2c 73 65 |posy=..(|..(t$,se|
|00002d00| 70 61 72 61 74 65 5f 70 | 6f 73 29 29 00 20 20 20 |parate_p|os)). |
|00002d10| 20 20 20 20 20 80 05 20 | 65 6e 64 70 61 72 73 65 | .. |endparse|
|00002d20| 77 68 69 6c 65 00 20 20 | 20 20 20 20 80 c0 00 00 |while. | ....|
|00002d30| 20 20 20 20 20 20 74 61 | 67 70 6f 73 20 20 20 20 | ta|gpos |
|00002d40| 20 20 20 20 20 20 20 3d | 20 dc 89 28 6c 24 2c 20 | =| ..(l$, |
|00002d50| 22 5c 66 6f 6e 74 20 22 | 29 20 3a 20 80 0b 20 74 |"\font "|) : .. t|
|00002d60| 61 67 70 6f 73 3e 30 00 | 20 20 20 20 20 20 20 20 |agpos>0.| |
|00002d70| 74 24 3d dc 91 28 6c 24 | 2c 74 61 67 70 6f 73 2b |t$=..(l$|,tagpos+|
|00002d80| 35 29 00 20 20 20 20 20 | 20 20 20 73 65 70 61 72 |5). | separ|
|00002d90| 61 74 65 5f 70 6f 73 3d | a5 8d 28 30 2c dc 89 28 |ate_pos=|..(0,..(|
|00002da0| 74 24 2c 22 2c 22 29 29 | 00 20 20 20 20 20 20 20 |t$,","))|. |
|00002db0| 20 66 6f 6e 74 24 3d dc | 81 28 74 24 2c 73 65 70 | font$=.|.(t$,sep|
|00002dc0| 61 72 61 74 65 5f 70 6f | 73 2d 31 29 00 20 20 20 |arate_po|s-1). |
|00002dd0| 20 20 20 20 20 66 6f 6e | 74 5f 68 65 69 67 68 74 | fon|t_height|
|00002de0| 3d bc 01 28 dc 91 28 74 | 24 2c 73 65 70 61 72 61 |=..(..(t|$,separa|
|00002df0| 74 65 5f 70 6f 73 29 29 | 00 20 20 20 20 20 20 20 |te_pos))|. |
|00002e00| 20 66 6f 6e 74 5f 68 65 | 69 67 68 74 3d a5 8d 28 | font_he|ight=..(|
|00002e10| 36 2c 66 6f 6e 74 5f 68 | 65 69 67 68 74 29 00 20 |6,font_h|eight). |
|00002e20| 20 20 20 20 20 20 20 66 | 6f 6e 74 5f 75 73 65 72 | f|ont_user|
|00002e30| 5f 62 3d bc 0e 00 20 20 | 20 20 20 20 20 20 80 05 |_b=... | ..|
|00002e40| 20 65 6e 64 70 61 72 73 | 65 77 68 69 6c 65 00 20 | endpars|ewhile. |
|00002e50| 20 20 20 20 20 80 c0 00 | 00 20 20 20 20 20 20 74 | ...|. t|
|00002e60| 61 67 70 6f 73 20 20 20 | 20 20 20 20 20 20 20 20 |agpos | |
|00002e70| 3d 20 dc 89 28 6c 24 2c | 20 22 5c 6f 70 65 6e 6d |= ..(l$,| "\openm|
|00002e80| 65 6e 75 22 29 20 3a 20 | 80 0b 20 74 61 67 70 6f |enu") : |.. tagpo|
|00002e90| 73 3e 30 00 20 20 20 20 | 20 20 20 20 80 0b 20 dc |s>0. | .. .|
|00002ea0| 89 28 6c 24 2c 22 61 6c | 6c 22 29 00 20 20 20 20 |.(l$,"al|l"). |
|00002eb0| 20 20 20 20 20 20 80 16 | 20 69 3d 31 20 80 18 20 | ..| i=1 .. |
|00002ec0| 38 20 3a 20 6d 65 6e 75 | 5f 74 6f 5f 62 65 5f 6f |8 : menu|_to_be_o|
|00002ed0| 70 65 6e 5f 62 28 69 29 | 3d bc 0e 20 3a 20 80 17 |pen_b(i)|=.. : ..|
|00002ee0| 00 20 20 20 20 20 20 20 | 20 20 20 6f 70 65 6e 6d |. | openm|
|00002ef0| 65 6e 75 5f 6f 70 74 69 | 6f 6e 3d 30 00 20 20 20 |enu_opti|on=0. |
|00002f00| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 | .".| |
|00002f10| 20 20 69 3d bc 01 28 dc | 91 28 6c 24 2c 74 61 67 | i=..(.|.(l$,tag|
|00002f20| 70 6f 73 2b 38 29 29 00 | 20 20 20 20 20 20 20 20 |pos+8)).| |
|00002f30| 20 20 80 0b 20 69 3e 30 | 20 3a 20 6d 65 6e 75 5f | .. i>0| : menu_|
|00002f40| 74 6f 5f 62 65 5f 6f 70 | 65 6e 5f 62 28 69 29 3d |to_be_op|en_b(i)=|
|00002f50| bc 0e 20 3a 20 80 c0 00 | 20 20 20 20 20 20 20 20 |.. : ...| |
|00002f60| 20 20 80 0b 20 69 3d 30 | 00 20 20 20 20 20 20 20 | .. i=0|. |
|00002f70| 20 20 20 20 20 20 80 16 | 20 6a 3d 31 20 80 18 20 | ..| j=1 .. |
|00002f80| 38 20 3a 20 6d 65 6e 75 | 5f 74 6f 5f 62 65 5f 6f |8 : menu|_to_be_o|
|00002f90| 70 65 6e 5f 62 28 6a 29 | 3d bc 0e 20 3a 20 80 17 |pen_b(j)|=.. : ..|
|00002fa0| 00 20 20 20 20 20 20 20 | 20 20 20 80 c0 00 20 20 |. | ... |
|00002fb0| 20 20 20 20 20 20 20 20 | 6f 70 65 6e 6d 65 6e 75 | |openmenu|
|00002fc0| 5f 6f 70 74 69 6f 6e 3d | 69 00 20 20 20 20 20 20 |_option=|i. |
|00002fd0| 20 20 80 c0 00 20 20 20 | 20 20 20 20 20 80 05 20 | ... | .. |
|00002fe0| 65 6e 64 70 61 72 73 65 | 77 68 69 6c 65 00 20 20 |endparse|while. |
|00002ff0| 20 20 20 20 80 c0 00 00 | 20 20 20 20 20 20 74 61 | ....| ta|
|00003000| 67 70 6f 73 20 20 20 20 | 20 20 20 20 20 20 20 3d |gpos | =|
|00003010| 20 20 dc 89 28 6c 24 2c | 20 22 5c 62 75 74 74 6f | ..(l$,| "\butto|
|00003020| 6e 77 69 64 74 68 22 29 | 20 3a 20 80 0b 20 74 61 |nwidth")| : .. ta|
|00003030| 67 70 6f 73 3e 30 00 20 | 20 20 20 20 20 20 20 62 |gpos>0. | b|
|00003040| 75 74 74 6f 6e 5f 77 69 | 64 74 68 2e 6c 3d bc 01 |utton_wi|dth.l=..|
|00003050| 28 dc 91 28 6c 24 2c 74 | 61 67 70 6f 73 2b 31 31 |(..(l$,t|agpos+11|
|00003060| 29 29 00 20 20 20 20 20 | 20 20 20 80 05 20 65 6e |)). | .. en|
|00003070| 64 70 61 72 73 65 77 68 | 69 6c 65 00 20 20 20 20 |dparsewh|ile. |
|00003080| 20 20 80 c0 00 00 20 20 | 20 20 20 20 74 61 67 70 | .... | tagp|
|00003090| 6f 73 20 20 20 20 20 20 | 20 20 20 20 20 3d 20 20 |os | = |
|000030a0| dc 89 28 6c 24 2c 20 22 | 5c 68 6f 74 6b 65 79 22 |..(l$, "|\hotkey"|
|000030b0| 29 20 3a 20 80 0b 20 74 | 61 67 70 6f 73 3e 30 00 |) : .. t|agpos>0.|
|000030c0| 20 20 20 20 20 20 20 20 | 68 6f 74 6b 65 79 24 3d | |hotkey$=|
|000030d0| dc 91 28 6c 24 2c 74 61 | 67 70 6f 73 2b 37 29 00 |..(l$,ta|gpos+7).|
|000030e0| 20 20 20 20 20 20 20 20 | 80 05 20 65 6e 64 70 61 | |.. endpa|
|000030f0| 72 73 65 77 68 69 6c 65 | 00 20 20 20 20 20 20 80 |rsewhile|. .|
|00003100| c0 00 20 20 20 20 80 c0 | 00 20 20 80 c0 00 00 00 |.. ..|. .....|
|00003110| 20 20 3b 55 73 65 20 49 | 6e 74 75 69 46 6f 6e 74 | ;Use I|ntuiFont|
|00003120| 20 31 00 20 20 65 6e 64 | 70 61 72 73 65 77 68 69 | 1. end|parsewhi|
|00003130| 6c 65 00 80 c1 00 be 02 | 20 23 46 31 00 6d 65 6e |le......| #F1.men|
|00003140| 75 5f 69 74 65 6d 73 28 | 6d 65 6e 75 29 3d 69 74 |u_items(|menu)=it|
|00003150| 65 6d 00 00 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |em...;--|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 3b 20 20 20 |--------|---.; |
|00003190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000031a0| 45 6e 73 75 72 65 20 69 | 6e 76 61 72 69 61 6e 74 |Ensure i|nvariant|
|000031b0| 73 00 00 80 0b 20 61 75 | 74 6f 63 6c 6f 73 65 5f |s.... au|toclose_|
|000031c0| 62 20 80 21 20 73 74 61 | 62 6c 65 5f 62 61 72 5f |b .! sta|ble_bar_|
|000031d0| 62 3d 30 00 00 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |b=0...;-|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.; |
|00003210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003220| 20 20 20 20 50 20 41 20 | 52 20 53 20 45 20 44 00 | P A |R S E D.|
|00003230| 00 00 00 80 0b 20 28 dc | 97 28 dc 82 28 66 6f 6e |..... (.|.(..(fon|
|00003240| 74 24 2c 35 29 29 3d 22 | 2e 66 6f 6e 74 22 29 3d |t$,5))="|.font")=|
|00003250| bc 0f 00 20 20 66 6f 6e | 74 24 3d 66 6f 6e 74 24 |... fon|t$=font$|
|00003260| 2b 22 2e 66 6f 6e 74 22 | 00 80 c0 00 80 0b 20 be |+".font"|...... .|
|00003270| 15 28 22 46 6f 6e 74 73 | 3a 22 2b 66 6f 6e 74 24 |.("Fonts|:"+font$|
|00003280| 29 3d bc 0f 00 20 20 66 | 6f 6e 74 24 3d 22 74 6f |)=... f|ont$="to|
|00003290| 70 61 7a 2e 66 6f 6e 74 | 22 00 80 c0 00 00 00 6e |paz.font|"......n|
|000032a0| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 3d 6d |umber_of|_menus=m|
|000032b0| 65 6e 75 00 62 75 74 74 | 6f 6e 5f 68 65 69 67 68 |enu.butt|on_heigh|
|000032c0| 74 3d 66 6f 6e 74 5f 68 | 65 69 67 68 74 2b 34 00 |t=font_h|eight+4.|
|000032d0| 65 78 70 65 63 74 65 64 | 5f 66 6f 6e 74 5f 77 69 |expected|_font_wi|
|000032e0| 64 74 68 3d 66 6f 6e 74 | 5f 68 65 69 67 68 74 00 |dth=font|_height.|
|000032f0| 00 66 69 6e 64 5f 61 6e | 64 5f 6c 65 61 72 6e 5f |.find_an|d_learn_|
|00003300| 73 63 72 65 65 6e 7b 7d | 00 00 73 75 63 63 20 3d |screen{}|..succ =|
|00003310| 20 ac 82 28 30 2c 68 6f | 74 6b 65 79 24 29 00 00 | ..(0,ho|tkey$)..|
|00003320| c3 01 20 30 2c 66 6f 6e | 74 24 2c 66 6f 6e 74 5f |.. 0,fon|t$,font_|
|00003330| 68 65 69 67 68 74 00 4c | 6f 61 64 53 63 72 65 65 |height.L|oadScree|
|00003340| 6e 46 6f 6e 74 7b 31 7d | 20 3a 20 53 63 72 65 65 |nFont{1}| : Scree|
|00003350| 6e 46 6f 6e 74 5f 48 65 | 69 67 68 74 2e 62 20 3d |nFont_He|ight.b =|
|00003360| 20 50 41 52 41 4d 32 42 | 2e 62 00 00 80 0b 20 6e | PARAM2B|.b.... n|
|00003370| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 3d 30 |umber_of|_menus=0|
|00003380| 00 20 20 d2 02 00 20 20 | dd 81 20 22 45 72 72 6f |. ... |.. "Erro|
|00003390| 72 3a 20 59 6f 75 72 20 | 6d 65 6e 75 66 69 6c 65 |r: Your |menufile|
|000033a0| 20 63 6f 6e 74 61 69 6e | 73 20 6e 6f 20 6d 65 6e | contain|s no men|
|000033b0| 75 73 2e 22 00 20 20 80 | 02 00 80 c0 00 00 71 62 |us.". .|......qb|
|000033c0| 5f 6f 66 66 73 65 74 3d | 2d 34 00 80 0b 20 71 75 |_offset=|-4... qu|
|000033d0| 69 74 5f 62 75 74 74 6f | 6e 5f 62 20 3a 20 71 62 |it_butto|n_b : qb|
|000033e0| 5f 6f 66 66 73 65 74 3d | 30 20 3a 20 80 c0 00 00 |_offset=|0 : ....|
|000033f0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00003400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003430| 2d 2d 2d 2d 00 3b 20 20 | 20 20 20 20 20 20 20 20 |----.; | |
|00003440| 20 20 20 20 20 20 20 4d | 20 45 20 4e 20 55 20 20 | M| E N U |
|00003450| 20 20 44 20 45 20 46 20 | 49 20 4e 20 49 20 54 20 | D E F |I N I T |
|00003460| 49 20 4f 20 4e 00 00 80 | 2c 20 c3 02 20 31 00 c4 |I O N...|, .. 1..|
|00003470| 07 20 32 2c 31 00 c4 01 | 20 23 57 31 2c 23 50 52 |. 2,1...| #W1,#PR|
|00003480| 4f 4a 45 43 54 2c 22 50 | 72 6f 6a 65 63 74 22 00 |OJECT,"P|roject".|
|00003490| 20 20 c4 03 20 23 57 31 | 2c 30 2c 23 50 52 4f 4a | .. #W1|,0,#PROJ|
|000034a0| 45 43 54 2c 30 2c 20 22 | 50 6f 73 69 74 69 6f 6e |ECT,0, "|Position|
|000034b0| 20 20 20 20 20 20 22 2c | 22 70 22 00 20 20 c4 03 | ",|"p". ..|
|000034c0| 20 23 57 31 2c 30 2c 23 | 50 52 4f 4a 45 43 54 2c | #W1,0,#|PROJECT,|
|000034d0| 31 2c 20 22 53 61 76 65 | 20 4d 65 6e 75 20 20 20 |1, "Save| Menu |
|000034e0| 20 20 22 2c 22 73 22 00 | 20 20 c4 03 20 23 57 31 | ","s".| .. #W1|
|000034f0| 2c 30 2c 23 50 52 4f 4a | 45 43 54 2c 32 2c 20 22 |,0,#PROJ|ECT,2, "|
|00003500| 53 61 76 65 20 6d 65 6e | 75 20 61 73 20 20 22 00 |Save men|u as ".|
|00003510| 20 20 c4 03 20 23 57 31 | 2c 30 2c 23 50 52 4f 4a | .. #W1|,0,#PROJ|
|00003520| 45 43 54 2c 33 2c 20 22 | 51 75 69 74 20 20 20 20 |ECT,3, "|Quit |
|00003530| 20 20 20 20 20 20 22 2c | 22 71 22 00 c4 01 20 23 | ",|"q"... #|
|00003540| 57 31 2c 31 2c 22 4f 70 | 65 72 61 74 69 6f 6e 22 |W1,1,"Op|eration"|
|00003550| 00 20 20 c4 03 20 23 57 | 31 2c 30 2c 31 2c 30 2c |. .. #W|1,0,1,0,|
|00003560| 20 22 4f 70 65 6e 20 20 | 41 6c 6c 20 20 20 20 20 | "Open |All |
|00003570| 22 2c 22 6f 22 00 20 20 | c4 03 20 23 57 31 2c 30 |","o". |.. #W1,0|
|00003580| 2c 31 2c 31 2c 20 22 43 | 6c 6f 73 65 20 41 6c 6c |,1,1, "C|lose All|
|00003590| 20 20 20 20 20 22 2c 22 | 63 22 00 20 20 c4 03 20 | ","|c". .. |
|000035a0| 23 57 31 2c 30 2c 31 2c | 32 2c 20 22 52 65 73 74 |#W1,0,1,|2, "Rest|
|000035b0| 61 72 74 20 20 20 20 20 | 20 20 22 2c 22 72 22 00 |art | ","r".|
|000035c0| c4 01 20 23 57 31 2c 32 | 2c 22 50 72 6f 70 65 72 |.. #W1,2|,"Proper|
|000035d0| 74 69 65 73 22 00 20 20 | c4 03 20 23 57 31 2c 30 |ties". |.. #W1,0|
|000035e0| 2c 32 2c 30 2c 20 22 42 | 75 74 74 6f 6e 20 77 69 |,2,0, "B|utton wi|
|000035f0| 64 74 68 22 00 20 20 c4 | 03 20 23 57 31 2c 30 2c |dth". .|. #W1,0,|
|00003600| 32 2c 31 2c 20 22 48 6f | 74 6b 65 79 22 00 20 20 |2,1, "Ho|tkey". |
|00003610| c4 03 20 23 57 31 2c 30 | 2c 32 2c 32 2c 20 22 50 |.. #W1,0|,2,2, "P|
|00003620| 72 65 66 69 78 22 00 20 | 20 c4 03 20 23 57 31 2c |refix". | .. #W1,|
|00003630| 30 2c 32 2c 33 2c 20 22 | 46 6f 6e 74 22 00 20 20 |0,2,3, "|Font". |
|00003640| c4 03 20 23 57 31 2c 30 | 2c 32 2c 34 2c 20 22 42 |.. #W1,0|,2,4, "B|
|00003650| 6f 6f 6c 65 61 6e 73 22 | 00 c4 01 20 23 57 31 2c |ooleans"|... #W1,|
|00003660| 33 2c 22 48 69 6e 74 73 | 22 00 20 20 c4 03 20 23 |3,"Hints|". .. #|
|00003670| 57 31 2c 30 2c 33 2c 30 | 2c 20 22 54 72 79 20 74 |W1,0,3,0|, "Try t|
|00003680| 6f 20 68 6f 6c 64 20 73 | 68 69 66 74 20 77 68 69 |o hold s|hift whi|
|00003690| 6c 65 20 63 6c 69 63 6b | 69 6e 67 20 62 75 74 74 |le click|ing butt|
|000036a0| 6f 6e 73 2e 22 00 20 20 | c4 03 20 23 57 31 2c 30 |ons.". |.. #W1,0|
|000036b0| 2c 33 2c 31 2c 20 22 53 | 65 74 20 73 68 6f 72 74 |,3,1, "S|et short|
|000036c0| 63 75 74 20 6b 65 79 73 | 20 62 79 20 70 72 65 63 |cut keys| by prec|
|000036d0| 65 64 69 6e 67 20 6c 65 | 74 74 65 72 20 62 79 20 |eding le|tter by |
|000036e0| 5f 2e 22 00 20 20 c4 03 | 20 23 57 31 2c 30 2c 33 |_.". ..| #W1,0,3|
|000036f0| 2c 32 2c 20 22 45 78 61 | 6d 70 6c 65 73 20 6f 66 |,2, "Exa|mples of|
|00003700| 20 62 75 74 74 6f 6e 20 | 6e 61 6d 65 73 3a 20 20 | button |names: |
|00003710| 5f 43 6f 6d 70 69 6c 65 | 2c 20 52 65 71 75 65 73 |_Compile|, Reques|
|00003720| 5f 74 22 00 20 20 c4 03 | 20 23 57 31 2c 30 2c 33 |_t". ..| #W1,0,3|
|00003730| 2c 33 2c 20 22 49 66 20 | 73 20 66 6c 61 67 20 6f |,3, "If |s flag o|
|00003740| 66 20 66 69 6c 65 20 69 | 73 20 73 65 74 2c 20 63 |f file i|s set, c|
|00003750| 6c 69 20 77 61 79 20 6f | 66 20 65 78 65 63 75 74 |li way o|f execut|
|00003760| 69 6f 6e 22 00 20 20 c4 | 03 20 23 57 31 2c 30 2c |ion". .|. #W1,0,|
|00003770| 33 2c 34 2c 20 22 20 20 | 20 77 69 6c 6c 20 65 78 |3,4, " | will ex|
|00003780| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 61 |ecute th|e file a|
|00003790| 73 20 73 63 72 69 70 74 | 2e 22 00 00 80 2c 20 c3 |s script|."..., .|
|000037a0| 02 20 30 00 3b 57 69 6e | 64 6f 77 46 6f 6e 74 20 |. 0.;Win|dowFont |
|000037b0| 30 00 00 00 73 75 63 63 | 3d 63 68 65 63 6b 5f 66 |0...succ|=check_f|
|000037c0| 69 74 5f 69 6e 5f 74 68 | 65 5f 73 63 72 65 65 6e |it_in_th|e_screen|
|000037d0| 5f 78 7b 7d 00 73 65 74 | 75 70 5f 61 6c 6c 5f 77 |_x{}.set|up_all_w|
|000037e0| 69 6e 64 6f 77 73 7b 7d | 00 00 80 16 20 63 6f 6c |indows{}|.... col|
|000037f0| 3d 31 20 80 18 20 6e 75 | 6d 62 65 72 5f 6f 66 5f |=1 .. nu|mber_of_|
|00003800| 6d 65 6e 75 73 00 20 20 | 6d 65 6e 75 5f 74 6f 5f |menus. |menu_to_|
|00003810| 62 65 5f 6f 70 65 6e 5f | 62 28 63 6f 6c 29 3d bc |be_open_|b(col)=.|
|00003820| 0f 00 80 17 00 00 d2 02 | 00 00 3b 2d 2d 2d 2d 2d |........|..;-----|
|00003830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003860| 2d 2d 2d 2d 2d 2d 2d 2d | 00 3b 20 20 20 20 20 20 |--------|.; |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00003880| 20 56 20 45 20 4e 20 54 | 20 4c 20 4f 20 4f 20 50 | V E N T| L O O P|
|00003890| 00 3b 00 3b 00 3b 00 3b | 00 00 00 00 65 78 65 63 |.;.;.;.;|....exec|
|000038a0| 75 74 65 5f 62 75 74 74 | 6f 6e 5f 62 20 3d 20 bc |ute_butt|on_b = .|
|000038b0| 0f 00 65 78 69 74 5f 62 | 20 20 20 20 20 20 20 20 |..exit_b| |
|000038c0| 20 20 20 3d 20 bc 0f 00 | 00 3b 49 4e 43 4c 55 44 | = ...|.;INCLUD|
|000038d0| 45 20 42 75 74 74 6f 6e | 42 61 72 2d 65 76 65 6e |E Button|Bar-even|
|000038e0| 74 6c 6f 6f 70 2e 62 62 | 32 00 80 01 20 2e 66 6f |tloop.bb|2... .fo|
|000038f0| 6e 74 69 6e 66 6f 00 20 | 20 20 20 20 6e 61 6d 65 |ntinfo. | name|
|00003900| 2e 73 00 20 20 20 20 20 | 79 73 69 7a 65 2e 77 00 |.s. |ysize.w.|
|00003910| 20 20 20 20 20 73 74 79 | 6c 65 2e 62 3a 66 6c 61 | sty|le.b:fla|
|00003920| 67 73 2e 62 00 20 20 20 | 20 20 70 65 6e 31 2e 62 |gs.b. | pen1.b|
|00003930| 3a 70 65 6e 32 3a 64 72 | 61 77 6d 6f 64 65 3a 70 |:pen2:dr|awmode:p|
|00003940| 61 64 00 80 02 20 80 01 | 00 00 80 08 20 73 61 76 |ad... ..|.... sav|
|00003950| 65 5f 6d 65 6e 75 7b 7d | 00 20 20 20 80 15 20 6d |e_menu{}|. .. m|
|00003960| 65 6e 75 66 69 6c 65 24 | 00 20 20 20 80 15 20 62 |enufile$|. .. b|
|00003970| 75 74 74 6f 6e 5f 77 69 | 64 74 68 2e 6c 2c 70 6f |utton_wi|dth.l,po|
|00003980| 73 78 2c 70 6f 73 79 00 | 20 20 20 80 15 20 66 6f |sx,posy.| .. fo|
|00003990| 6e 74 5f 75 73 65 72 5f | 62 2c 66 6f 6e 74 24 2c |nt_user_|b,font$,|
|000039a0| 66 6f 6e 74 5f 68 65 69 | 67 68 74 2c 6f 70 65 6e |font_hei|ght,open|
|000039b0| 6d 65 6e 75 5f 6f 70 74 | 69 6f 6e 00 20 20 20 80 |menu_opt|ion. .|
|000039c0| 15 20 70 72 65 66 69 78 | 24 2c 71 75 69 74 5f 62 |. prefix|$,quit_b|
|000039d0| 75 74 74 6f 6e 5f 62 2c | 73 74 61 62 6c 65 5f 62 |utton_b,|stable_b|
|000039e0| 61 72 5f 62 2c 65 78 63 | 6c 75 73 69 76 65 5f 6d |ar_b,exc|lusive_m|
|000039f0| 65 6e 75 73 5f 62 00 20 | 20 20 80 15 20 66 69 78 |enus_b. | .. fix|
|00003a00| 65 64 5f 6f 70 65 6e 5f | 62 2c 72 75 6e 61 6e 64 |ed_open_|b,runand|
|00003a10| 64 69 65 5f 62 2c 72 75 | 6e 61 6e 64 73 6c 65 65 |die_b,ru|nandslee|
|00003a20| 70 5f 62 00 20 20 20 80 | 15 20 6f 70 65 6e 5f 6f |p_b. .|. open_o|
|00003a30| 6e 5f 77 62 5f 62 2c 63 | 6c 6f 73 65 64 5f 6d 65 |n_wb_b,c|losed_me|
|00003a40| 6e 75 5f 6b 65 79 73 5f | 62 2c 6f 70 65 6e 5f 6f |nu_keys_|b,open_o|
|00003a50| 6e 5f 68 6f 74 6b 65 79 | 5f 62 00 20 20 20 80 15 |n_hotkey|_b. ..|
|00003a60| 20 6d 65 6e 75 73 5f 70 | 72 65 66 65 72 65 64 5f | menus_p|refered_|
|00003a70| 64 69 72 65 63 74 69 6f | 6e 00 20 20 20 80 15 20 |directio|n. .. |
|00003a80| 6e 75 6d 62 65 72 5f 6f | 66 5f 6d 65 6e 75 73 00 |number_o|f_menus.|
|00003a90| 20 20 20 80 15 20 61 75 | 74 6f 63 6c 6f 73 65 5f | .. au|toclose_|
|00003aa0| 62 00 20 20 20 80 15 20 | 68 6f 74 6b 65 79 24 00 |b. .. |hotkey$.|
|00003ab0| 00 20 20 20 80 15 20 63 | 6f 6c 75 6d 6e 5f 74 69 |. .. c|olumn_ti|
|00003ac0| 74 6c 65 24 28 29 2c 74 | 69 74 72 65 24 28 29 2c |tle$(),t|itre$(),|
|00003ad0| 73 65 71 75 65 6e 63 65 | 24 28 29 2c 6d 65 6e 75 |sequence|$(),menu|
|00003ae0| 5f 69 74 65 6d 73 28 29 | 00 00 20 20 20 20 80 0b |_items()|.. ..|
|00003af0| 20 be 12 28 23 46 31 2c | 6d 65 6e 75 66 69 6c 65 | ..(#F1,|menufile|
|00003b00| 24 29 3c 3e bc 0f 00 20 | 20 20 20 20 20 20 be 07 |$)<>... | ..|
|00003b10| 20 23 46 31 00 20 20 20 | 20 20 20 20 3b 70 72 69 | #F1. | ;pri|
|00003b20| 6e 74 20 6f 70 74 69 6f | 6e 73 00 00 20 20 20 20 |nt optio|ns.. |
|00003b30| 20 20 20 dd 82 20 22 5c | 62 75 74 74 6f 6e 77 69 | .. "\|buttonwi|
|00003b40| 64 74 68 20 22 2c 62 75 | 74 74 6f 6e 5f 77 69 64 |dth ",bu|tton_wid|
|00003b50| 74 68 2e 6c 00 20 20 20 | 20 20 20 20 dd 82 20 22 |th.l. | .. "|
|00003b60| 5c 70 6f 73 69 74 69 6f | 6e 20 22 2c 70 6f 73 78 |\positio|n ",posx|
|00003b70| 2c 22 2c 22 2c 70 6f 73 | 79 00 20 20 20 20 20 20 |,",",pos|y. |
|00003b80| 20 80 0b 20 66 6f 6e 74 | 5f 75 73 65 72 5f 62 20 | .. font|_user_b |
|00003b90| 80 21 20 dd 82 20 22 5c | 66 6f 6e 74 20 22 2c 66 |.! .. "\|font ",f|
|00003ba0| 6f 6e 74 24 2c 22 2c 22 | 2c 66 6f 6e 74 5f 68 65 |ont$,","|,font_he|
|00003bb0| 69 67 68 74 00 20 20 20 | 20 20 20 20 80 0b 20 6f |ight. | .. o|
|00003bc0| 70 65 6e 6d 65 6e 75 5f | 6f 70 74 69 6f 6e 3e 2d |penmenu_|option>-|
|00003bd0| 31 20 80 21 20 dd 82 20 | 22 5c 6f 70 65 6e 6d 65 |1 .! .. |"\openme|
|00003be0| 6e 75 20 22 2c 6f 70 65 | 6e 6d 65 6e 75 5f 6f 70 |nu ",ope|nmenu_op|
|00003bf0| 74 69 6f 6e 00 20 20 20 | 20 20 20 20 80 0b 20 70 |tion. | .. p|
|00003c00| 72 65 66 69 78 24 3c 3e | 22 22 20 80 21 20 dd 82 |refix$<>|"" .! ..|
|00003c10| 20 22 5c 70 72 65 66 69 | 78 20 22 2c 70 72 65 66 | "\prefi|x ",pref|
|00003c20| 69 78 24 00 20 20 20 20 | 20 20 20 80 0b 20 68 6f |ix$. | .. ho|
|00003c30| 74 6b 65 79 24 3c 3e 22 | 22 20 80 21 20 dd 82 20 |tkey$<>"|" .! .. |
|00003c40| 22 5c 68 6f 74 6b 65 79 | 20 22 2c 68 6f 74 6b 65 |"\hotkey| ",hotke|
|00003c50| 79 24 00 00 20 20 20 20 | 20 20 20 80 0b 20 71 75 |y$.. | .. qu|
|00003c60| 69 74 5f 62 75 74 74 6f | 6e 5f 62 20 80 21 20 dd |it_butto|n_b .! .|
|00003c70| 82 20 22 5c 71 75 69 74 | 62 75 74 74 6f 6e 22 00 |. "\quit|button".|
|00003c80| 20 20 20 20 20 20 20 80 | 0b 20 73 74 61 62 6c 65 | .|. stable|
|00003c90| 5f 62 61 72 5f 62 20 20 | 80 21 20 dd 82 20 22 5c |_bar_b |.! .. "\|
|00003ca0| 73 74 61 62 6c 65 62 61 | 72 22 00 20 20 20 20 20 |stableba|r". |
|00003cb0| 20 20 80 0b 20 65 78 63 | 6c 75 73 69 76 65 5f 6d | .. exc|lusive_m|
|00003cc0| 65 6e 75 73 5f 62 20 80 | 21 20 dd 82 20 22 5c 65 |enus_b .|! .. "\e|
|00003cd0| 78 63 6c 75 73 69 76 65 | 6d 65 6e 75 73 22 00 20 |xclusive|menus". |
|00003ce0| 20 20 20 20 20 20 80 0b | 20 66 69 78 65 64 5f 6f | ..| fixed_o|
|00003cf0| 70 65 6e 5f 62 20 80 21 | 20 dd 82 20 22 5c 66 69 |pen_b .!| .. "\fi|
|00003d00| 78 65 64 6f 70 65 6e 22 | 00 20 20 20 20 20 20 20 |xedopen"|. |
|00003d10| 80 0b 20 72 75 6e 61 6e | 64 64 69 65 5f 62 20 80 |.. runan|ddie_b .|
|00003d20| 21 20 20 20 dd 82 20 22 | 5c 72 75 6e 61 6e 64 64 |! .. "|\runandd|
|00003d30| 69 65 22 00 20 20 20 20 | 20 20 20 80 0b 20 72 75 |ie". | .. ru|
|00003d40| 6e 61 6e 64 73 6c 65 65 | 70 5f 62 20 80 21 20 20 |nandslee|p_b .! |
|00003d50| dd 82 20 22 5c 72 75 6e | 61 6e 64 73 6c 65 65 70 |.. "\run|andsleep|
|00003d60| 22 00 20 20 20 20 20 20 | 20 80 0b 20 6f 70 65 6e |". | .. open|
|00003d70| 5f 6f 6e 5f 77 62 5f 62 | 20 20 20 80 21 20 20 dd |_on_wb_b| .! .|
|00003d80| 82 20 22 5c 77 6f 72 6b | 62 65 6e 63 68 22 00 20 |. "\work|bench". |
|00003d90| 20 20 20 20 20 20 80 0b | 20 63 6c 6f 73 65 64 5f | ..| closed_|
|00003da0| 6d 65 6e 75 5f 6b 65 79 | 73 5f 62 20 80 21 20 dd |menu_key|s_b .! .|
|00003db0| 82 20 22 5c 61 6c 6c 6b | 65 79 73 22 00 20 20 20 |. "\allk|eys". |
|00003dc0| 20 20 20 20 80 0b 20 6f | 70 65 6e 5f 6f 6e 5f 68 | .. o|pen_on_h|
|00003dd0| 6f 74 6b 65 79 5f 62 20 | 80 21 20 dd 82 20 22 5c |otkey_b |.! .. "\|
|00003de0| 6f 70 65 6e 6f 6e 68 6f | 74 6b 65 79 22 00 20 20 |openonho|tkey". |
|00003df0| 20 20 20 20 20 80 0b 20 | 6d 65 6e 75 73 5f 70 72 | .. |menus_pr|
|00003e00| 65 66 65 72 65 64 5f 64 | 69 72 65 63 74 69 6f 6e |efered_d|irection|
|00003e10| 3d 2d 31 20 80 21 20 dd | 82 20 22 5c 6f 70 65 6e |=-1 .! .|. "\open|
|00003e20| 64 6f 77 6e 22 00 20 20 | 20 20 20 20 20 80 0b 20 |down". | .. |
|00003e30| 61 75 74 6f 63 6c 6f 73 | 65 5f 62 20 80 21 20 dd |autoclos|e_b .! .|
|00003e40| 82 20 22 5c 61 75 74 6f | 63 6c 6f 73 65 22 00 00 |. "\auto|close"..|
|00003e50| 00 20 20 20 20 20 20 20 | 80 16 20 6d 65 6e 75 3d |. |.. menu=|
|00003e60| 31 20 80 18 20 6e 75 6d | 62 65 72 5f 6f 66 5f 6d |1 .. num|ber_of_m|
|00003e70| 65 6e 75 73 00 20 20 20 | 20 20 20 20 20 20 dd 82 |enus. | ..|
|00003e80| 20 22 22 00 20 20 20 20 | 20 20 20 20 20 dd 82 20 | "". | .. |
|00003e90| 22 3a 22 2b 63 6f 6c 75 | 6d 6e 5f 74 69 74 6c 65 |":"+colu|mn_title|
|00003ea0| 24 28 6d 65 6e 75 29 00 | 20 20 20 20 20 20 20 20 |$(menu).| |
|00003eb0| 20 80 16 20 69 74 65 6d | 3d 31 20 80 18 20 6d 65 | .. item|=1 .. me|
|00003ec0| 6e 75 5f 69 74 65 6d 73 | 28 6d 65 6e 75 29 2d 31 |nu_items|(menu)-1|
|00003ed0| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 dd 82 20 |. | .. |
|00003ee0| 74 69 74 72 65 24 28 6d | 65 6e 75 2c 69 74 65 6d |titre$(m|enu,item|
|00003ef0| 2b 31 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |+1). | |
|00003f00| dd 82 20 73 65 71 75 65 | 6e 63 65 24 28 6d 65 6e |.. seque|nce$(men|
|00003f10| 75 2c 69 74 65 6d 2b 31 | 29 00 20 20 20 20 20 20 |u,item+1|). |
|00003f20| 20 20 20 80 17 00 20 20 | 20 20 20 20 20 80 17 00 | ... | ...|
|00003f30| 20 20 20 20 20 20 20 be | 02 20 23 46 31 00 20 20 | .|. #F1. |
|00003f40| 20 20 80 c0 00 00 80 02 | 20 80 08 00 00 80 08 20 | ......| ...... |
|00003f50| 77 69 6e 64 6f 77 5f 61 | 74 5f 63 75 72 73 6f 72 |window_a|t_cursor|
|00003f60| 7b 77 69 2c 68 69 2c 66 | 6c 61 67 73 2c 74 69 74 |{wi,hi,f|lags,tit|
|00003f70| 6c 65 24 2c 64 70 65 6e | 2c 62 70 65 6e 7d 00 20 |le$,dpen|,bpen}. |
|00003f80| 20 20 80 15 20 57 49 4e | 44 4f 57 5f 4e 55 4d 42 | .. WIN|DOW_NUMB|
|00003f90| 45 52 20 20 20 3b 54 48 | 49 53 20 53 45 52 56 45 |ER ;TH|IS SERVE|
|00003fa0| 53 20 41 53 20 50 41 52 | 41 4d 45 54 45 52 20 42 |S AS PAR|AMETER B|
|00003fb0| 45 43 41 55 53 45 20 42 | 4c 49 54 5a 00 20 20 20 |ECAUSE B|LITZ. |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003fd0| 20 20 20 20 20 20 20 3b | 48 41 53 20 4f 4e 4c 59 | ;|HAS ONLY|
|00003fe0| 20 36 20 50 41 52 41 4d | 45 54 45 52 53 3a 2d 28 | 6 PARAM|ETERS:-(|
|00003ff0| 00 20 20 20 80 15 20 73 | 63 72 65 65 6e 5f 77 69 |. .. s|creen_wi|
|00004000| 64 74 68 2c 73 63 72 65 | 65 6e 5f 68 65 69 67 68 |dth,scre|en_heigh|
|00004010| 74 00 00 20 20 20 77 69 | 3d a5 89 28 77 69 2c 73 |t.. wi|=..(wi,s|
|00004020| 63 72 65 65 6e 5f 77 69 | 64 74 68 29 00 20 20 20 |creen_wi|dth). |
|00004030| 68 69 3d a5 89 28 68 69 | 2c 73 63 72 65 65 6e 5f |hi=..(hi|,screen_|
|00004040| 68 65 69 67 68 74 29 00 | 00 20 20 20 78 70 3d a5 |height).|. xp=.|
|00004050| 89 28 73 63 72 65 65 6e | 5f 77 69 64 74 68 2d 77 |.(screen|_width-w|
|00004060| 69 20 2c a5 8d 28 30 2c | cf 05 2d 77 69 2f 32 29 |i ,..(0,|..-wi/2)|
|00004070| 29 00 20 20 20 79 70 3d | a5 89 28 73 63 72 65 65 |). yp=|..(scree|
|00004080| 6e 5f 68 65 69 67 68 74 | 2d 68 69 2c a5 8d 28 30 |n_height|-hi,..(0|
|00004090| 2c cf 06 2d 68 69 2f 32 | 29 29 00 20 20 20 c5 01 |,..-hi/2|)). ..|
|000040a0| 20 57 49 4e 44 4f 57 5f | 4e 55 4d 42 45 52 2c 78 | WINDOW_|NUMBER,x|
|000040b0| 70 2c 79 70 2c 77 69 2c | 68 69 2c 66 6c 61 67 73 |p,yp,wi,|hi,flags|
|000040c0| 2c 74 69 74 6c 65 24 2c | 64 70 65 6e 2c 62 70 65 |,title$,|dpen,bpe|
|000040d0| 6e 00 20 20 20 c5 3b 20 | 74 69 74 6c 65 24 2c 22 |n. .; |title$,"|
|000040e0| 42 75 74 74 6f 6e 42 61 | 72 22 00 80 02 20 80 08 |ButtonBa|r"... ..|
|000040f0| 00 00 80 08 20 63 6f 70 | 79 5f 63 6f 6c 75 6d 6e |.... cop|y_column|
|00004100| 7b 73 6f 75 72 63 65 2c | 64 65 73 74 69 6e 7d 00 |{source,|destin}.|
|00004110| 20 20 20 3b 63 6f 6c 75 | 6d 6e 5f 6f 70 65 6e 5f | ;colu|mn_open_|
|00004120| 62 28 29 20 49 53 20 48 | 45 52 45 21 21 21 00 00 |b() IS H|ERE!!!..|
|00004130| 20 20 20 80 15 20 63 6f | 6c 75 6d 6e 5f 74 69 74 | .. co|lumn_tit|
|00004140| 6c 65 24 28 29 2c 74 69 | 74 72 65 24 28 29 2c 73 |le$(),ti|tre$(),s|
|00004150| 65 71 75 65 6e 63 65 24 | 28 29 2c 69 74 65 6d 5f |equence$|(),item_|
|00004160| 72 61 77 6b 65 79 2e 62 | 28 29 00 20 20 20 80 15 |rawkey.b|(). ..|
|00004170| 20 6d 65 6e 75 5f 69 74 | 65 6d 73 28 29 2c 63 6f | menu_it|ems(),co|
|00004180| 6c 75 6d 6e 5f 6f 70 65 | 6e 5f 62 28 29 00 00 20 |lumn_ope|n_b().. |
|00004190| 20 20 6d 65 6e 75 5f 69 | 74 65 6d 73 28 64 65 73 | menu_i|tems(des|
|000041a0| 74 69 6e 29 20 20 20 20 | 20 3d 20 6d 65 6e 75 5f |tin) | = menu_|
|000041b0| 69 74 65 6d 73 28 73 6f | 75 72 63 65 29 00 20 20 |items(so|urce). |
|000041c0| 20 63 6f 6c 75 6d 6e 5f | 74 69 74 6c 65 24 28 64 | column_|title$(d|
|000041d0| 65 73 74 69 6e 29 20 20 | 3d 20 63 6f 6c 75 6d 6e |estin) |= column|
|000041e0| 5f 74 69 74 6c 65 24 28 | 73 6f 75 72 63 65 29 00 |_title$(|source).|
|000041f0| 20 20 20 63 6f 6c 75 6d | 6e 5f 6f 70 65 6e 5f 62 | colum|n_open_b|
|00004200| 28 64 65 73 74 69 6e 29 | 20 20 20 20 3d 20 63 6f |(destin)| = co|
|00004210| 6c 75 6d 6e 5f 6f 70 65 | 6e 5f 62 28 73 6f 75 72 |lumn_ope|n_b(sour|
|00004220| 63 65 29 00 00 20 20 20 | 80 16 20 69 3d 32 20 80 |ce).. |.. i=2 .|
|00004230| 18 20 6d 65 6e 75 5f 69 | 74 65 6d 73 28 64 65 73 |. menu_i|tems(des|
|00004240| 74 69 6e 29 00 20 20 20 | 20 20 20 74 69 74 72 65 |tin). | titre|
|00004250| 24 28 64 65 73 74 69 6e | 2c 69 29 20 20 20 20 20 |$(destin|,i) |
|00004260| 20 20 20 20 3d 20 74 69 | 74 72 65 24 28 73 6f 75 | = ti|tre$(sou|
|00004270| 72 63 65 2c 69 29 00 20 | 20 20 20 20 20 73 65 71 |rce,i). | seq|
|00004280| 75 65 6e 63 65 24 28 64 | 65 73 74 69 6e 2c 69 29 |uence$(d|estin,i)|
|00004290| 20 20 20 20 20 20 3d 20 | 73 65 71 75 65 6e 63 65 | = |sequence|
|000042a0| 24 28 73 6f 75 72 63 65 | 2c 69 29 00 20 20 20 20 |$(source|,i). |
|000042b0| 20 20 69 74 65 6d 5f 72 | 61 77 6b 65 79 2e 62 28 | item_r|awkey.b(|
|000042c0| 64 65 73 74 69 6e 2c 69 | 29 20 20 3d 20 69 74 65 |destin,i|) = ite|
|000042d0| 6d 5f 72 61 77 6b 65 79 | 2e 62 28 73 6f 75 72 63 |m_rawkey|.b(sourc|
|000042e0| 65 2c 69 29 00 20 20 20 | 80 17 00 80 02 20 80 08 |e,i). |..... ..|
|000042f0| 00 00 80 09 2e 62 20 69 | 6e 73 65 72 74 5f 63 6f |.....b i|nsert_co|
|00004300| 6c 75 6d 6e 7b 63 6f 6c | 75 6d 6e 7d 00 20 20 20 |lumn{col|umn}. |
|00004310| 3b 76 6f 69 64 20 66 75 | 6e 63 74 69 6f 6e 00 00 |;void fu|nction..|
|00004320| 20 20 20 3b 49 73 20 69 | 74 20 70 6f 73 73 69 62 | ;Is i|t possib|
|00004330| 6c 65 3f 00 20 20 20 3b | 73 68 69 66 74 20 6f 6c |le?. ;|shift ol|
|00004340| 64 20 62 75 74 74 6f 6e | 73 00 20 20 20 3b 69 6e |d button|s. ;in|
|00004350| 69 74 69 61 6c 69 7a 65 | 20 6e 65 77 20 6f 6e 65 |itialize| new one|
|00004360| 73 00 20 20 20 3b 72 65 | 73 65 74 20 61 6c 6c 20 |s. ;re|set all |
|00004370| 67 61 64 67 65 74 20 6c | 69 73 74 73 20 66 6f 72 |gadget l|ists for|
|00004380| 20 63 6f 6c 75 6d 6e 73 | 20 72 69 67 68 74 20 66 | columns| right f|
|00004390| 72 6f 6d 20 63 6f 6c 75 | 6d 6e 00 20 20 20 3b 20 |rom colu|mn. ; |
|000043a0| 20 20 69 6e 63 6c 75 64 | 69 6e 67 20 63 6f 6c 75 | includ|ing colu|
|000043b0| 6d 6e 00 00 20 20 20 80 | 15 20 63 6f 6c 75 6d 6e |mn.. .|. column|
|000043c0| 5f 74 69 74 6c 65 24 28 | 29 2c 74 69 74 72 65 24 |_title$(|),titre$|
|000043d0| 28 29 2c 73 65 71 75 65 | 6e 63 65 24 28 29 2c 69 |(),seque|nce$(),i|
|000043e0| 74 65 6d 5f 72 61 77 6b | 65 79 2e 62 28 29 00 20 |tem_rawk|ey.b(). |
|000043f0| 20 20 80 15 20 6d 65 6e | 75 5f 69 74 65 6d 73 28 | .. men|u_items(|
|00004400| 29 2c 63 6f 6c 75 6d 6e | 5f 6f 70 65 6e 5f 62 28 |),column|_open_b(|
|00004410| 29 2c 63 6f 6c 75 6d 6e | 5f 73 65 74 75 70 5f 62 |),column|_setup_b|
|00004420| 28 29 00 20 20 20 80 15 | 20 6e 75 6d 62 65 72 5f |(). ..| number_|
|00004430| 6f 66 5f 6d 65 6e 75 73 | 2c 65 78 63 6c 75 73 69 |of_menus|,exclusi|
|00004440| 76 65 5f 6d 65 6e 75 73 | 5f 62 00 20 20 20 80 15 |ve_menus|_b. ..|
|00004450| 20 71 24 00 00 20 20 20 | 6e 75 6d 62 65 72 5f 6f | q$.. |number_o|
|00004460| 66 5f 6d 65 6e 75 73 3d | 6e 75 6d 62 65 72 5f 6f |f_menus=|number_o|
|00004470| 66 5f 6d 65 6e 75 73 2b | 31 00 20 20 20 73 75 63 |f_menus+|1. suc|
|00004480| 63 3d 63 68 65 63 6b 5f | 66 69 74 5f 69 6e 5f 74 |c=check_|fit_in_t|
|00004490| 68 65 5f 73 63 72 65 65 | 6e 5f 78 7b 7d 00 20 20 |he_scree|n_x{}. |
|000044a0| 20 80 0b 20 73 75 63 63 | 3d 32 20 20 20 20 20 20 | .. succ|=2 |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 6e 75 6d 62 | | ;numb|
|000044c0| 65 72 5f 6f 66 5f 6d 65 | 6e 75 73 5f 63 75 74 00 |er_of_me|nus_cut.|
|000044d0| 20 20 20 20 20 80 09 20 | 80 07 20 30 00 20 20 20 | .. |.. 0. |
|000044e0| 80 c0 00 20 20 20 80 0b | 20 73 75 63 63 3d 31 20 |... ..| succ=1 |
|000044f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004500| 3b 70 6f 73 69 74 69 6f | 6e 20 63 68 61 6e 67 65 |;positio|n change|
|00004510| 20 66 6f 72 63 65 64 00 | 20 20 20 20 20 80 16 20 | forced.| .. |
|00004520| 63 6f 6c 3d 31 20 80 18 | 20 63 6f 6c 75 6d 6e 2d |col=1 ..| column-|
|00004530| 31 00 20 20 20 20 20 20 | 20 73 65 74 75 70 5f 63 |1. | setup_c|
|00004540| 6f 6c 75 6d 6e 7b 63 6f | 6c 7d 00 20 20 20 20 20 |olumn{co|l}. |
|00004550| 80 17 00 20 20 20 80 c0 | 00 00 20 20 20 80 16 20 |... ..|.. .. |
|00004560| 63 6f 6c 3d 6e 75 6d 62 | 65 72 5f 6f 66 5f 6d 65 |col=numb|er_of_me|
|00004570| 6e 75 73 20 80 18 20 63 | 6f 6c 75 6d 6e 2b 31 20 |nus .. c|olumn+1 |
|00004580| 80 19 20 2d 31 00 20 20 | 20 20 20 63 6f 70 79 5f |.. -1. | copy_|
|00004590| 63 6f 6c 75 6d 6e 7b 63 | 6f 6c 2d 31 2c 63 6f 6c |column{c|ol-1,col|
|000045a0| 7d 00 20 20 20 20 20 73 | 65 74 75 70 5f 63 6f 6c |}. s|etup_col|
|000045b0| 75 6d 6e 7b 63 6f 6c 7d | 00 20 20 20 80 17 00 00 |umn{col}|. ....|
|000045c0| 20 20 20 63 6f 6c 75 6d | 6e 5f 74 69 74 6c 65 24 | colum|n_title$|
|000045d0| 28 63 6f 6c 75 6d 6e 29 | 3d 22 4e 65 77 20 4f 6e |(column)|="New On|
|000045e0| 65 22 00 20 20 20 74 69 | 74 72 65 24 28 63 6f 6c |e". ti|tre$(col|
|000045f0| 75 6d 6e 2c 32 29 3d 22 | 4e 65 77 20 4f 6e 65 22 |umn,2)="|New One"|
|00004600| 00 20 20 20 73 65 71 75 | 65 6e 63 65 24 28 63 6f |. sequ|ence$(co|
|00004610| 6c 75 6d 6e 2c 32 29 3d | 22 63 3a 72 65 71 75 65 |lumn,2)=|"c:reque|
|00004620| 73 74 63 68 6f 69 63 65 | 20 42 75 74 74 6f 6e 42 |stchoice| ButtonB|
|00004630| 61 72 20 22 2b 71 24 2b | 22 54 68 69 73 20 62 75 |ar "+q$+|"This bu|
|00004640| 74 74 6f 6e 20 64 6f 65 | 73 20 71 75 69 74 65 20 |tton doe|s quite |
|00004650| 6e 6f 74 68 69 6e 67 2e | 22 2b 71 24 2b 22 20 22 |nothing.|"+q$+" "|
|00004660| 2b 71 24 2b 22 49 20 73 | 65 65 22 2b 71 24 00 20 |+q$+"I s|ee"+q$. |
|00004670| 20 20 69 74 65 6d 5f 72 | 61 77 6b 65 79 28 63 6f | item_r|awkey(co|
|00004680| 6c 75 6d 6e 2c 32 29 3d | 30 00 20 20 20 6d 65 6e |lumn,2)=|0. men|
|00004690| 75 5f 69 74 65 6d 73 28 | 63 6f 6c 75 6d 6e 29 3d |u_items(|column)=|
|000046a0| 31 2b 31 00 00 20 20 20 | 73 65 74 75 70 5f 63 6f |1+1.. |setup_co|
|000046b0| 6c 75 6d 6e 7b 63 6f 6c | 75 6d 6e 7d 00 20 20 20 |lumn{col|umn}. |
|000046c0| 73 65 74 75 70 5f 63 6f | 6c 75 6d 6e 73 5f 74 69 |setup_co|lumns_ti|
|000046d0| 74 6c 65 73 7b 7d 00 20 | 20 20 6f 70 65 6e 5f 63 |tles{}. | open_c|
|000046e0| 6f 6c 75 6d 6e 7b 63 6f | 6c 75 6d 6e 7d 00 80 02 |olumn{co|lumn}...|
|000046f0| 20 80 09 00 00 80 08 20 | 64 65 6c 65 74 65 5f 63 | ...... |delete_c|
|00004700| 6f 6c 75 6d 6e 7b 63 6f | 6c 75 6d 6e 7d 00 20 20 |olumn{co|lumn}. |
|00004710| 20 3b 73 68 69 66 74 20 | 6f 6c 64 20 62 75 74 74 | ;shift |old butt|
|00004720| 6f 6e 73 00 20 20 20 3b | 72 65 73 65 74 20 61 6c |ons. ;|reset al|
|00004730| 6c 20 67 61 64 67 65 74 | 20 6c 69 73 74 73 20 66 |l gadget| lists f|
|00004740| 6f 72 20 63 6f 6c 75 6d | 6e 73 20 72 69 67 68 74 |or colum|ns right|
|00004750| 20 66 72 6f 6d 20 63 6f | 6c 75 6d 6e 00 20 20 20 | from co|lumn. |
|00004760| 3b 20 20 20 69 6e 63 6c | 75 64 69 6e 67 20 63 6f |; incl|uding co|
|00004770| 6c 75 6d 6e 00 00 20 20 | 20 80 15 20 74 69 74 72 |lumn.. | .. titr|
|00004780| 65 24 28 29 2c 73 65 71 | 75 65 6e 63 65 24 28 29 |e$(),seq|uence$()|
|00004790| 2c 69 74 65 6d 5f 72 61 | 77 6b 65 79 2e 62 28 29 |,item_ra|wkey.b()|
|000047a0| 00 20 20 20 80 15 20 63 | 6f 6c 75 6d 6e 5f 74 69 |. .. c|olumn_ti|
|000047b0| 74 6c 65 24 28 29 00 20 | 20 20 80 15 20 6d 65 6e |tle$(). | .. men|
|000047c0| 75 5f 69 74 65 6d 73 28 | 29 2c 63 6f 6c 75 6d 6e |u_items(|),column|
|000047d0| 5f 6f 70 65 6e 5f 62 28 | 29 00 20 20 20 80 15 20 |_open_b(|). .. |
|000047e0| 6e 75 6d 62 65 72 5f 6f | 66 5f 6d 65 6e 75 73 00 |number_o|f_menus.|
|000047f0| 00 20 20 20 63 6f 6c 3d | 63 6f 6c 75 6d 6e 00 20 |. col=|column. |
|00004800| 20 20 80 0c 20 28 63 6f | 6c 3c 6e 75 6d 62 65 72 | .. (co|l<number|
|00004810| 5f 6f 66 5f 6d 65 6e 75 | 73 29 00 20 20 20 20 20 |_of_menu|s). |
|00004820| 20 63 6f 70 79 5f 63 6f | 6c 75 6d 6e 7b 63 6f 6c | copy_co|lumn{col|
|00004830| 2b 31 2c 63 6f 6c 7d 00 | 20 20 20 20 20 20 73 65 |+1,col}.| se|
|00004840| 74 75 70 5f 63 6f 6c 75 | 6d 6e 7b 63 6f 6c 7d 00 |tup_colu|mn{col}.|
|00004850| 20 20 20 20 20 20 63 6f | 6c 3d 63 6f 6c 2b 31 00 | co|l=col+1.|
|00004860| 20 20 20 80 c1 00 00 20 | 20 20 65 72 61 73 65 5f | .... | erase_|
|00004870| 63 6f 6c 75 6d 6e 7b 6e | 75 6d 62 65 72 5f 6f 66 |column{n|umber_of|
|00004880| 5f 6d 65 6e 75 73 7d 00 | 00 20 20 20 6e 75 6d 62 |_menus}.|. numb|
|00004890| 65 72 5f 6f 66 5f 6d 65 | 6e 75 73 3d 6e 75 6d 62 |er_of_me|nus=numb|
|000048a0| 65 72 5f 6f 66 5f 6d 65 | 6e 75 73 2d 31 00 00 20 |er_of_me|nus-1.. |
|000048b0| 20 20 73 65 74 75 70 5f | 63 6f 6c 75 6d 6e 73 5f | setup_|columns_|
|000048c0| 74 69 74 6c 65 73 7b 7d | 00 00 80 02 20 80 08 00 |titles{}|.... ...|
|000048d0| 00 80 08 20 65 64 69 74 | 5f 62 75 74 74 6f 6e 7b |... edit|_button{|
|000048e0| 7d 00 00 20 20 20 80 15 | 20 6d 65 6e 75 2c 69 74 |}.. ..| menu,it|
|000048f0| 65 6d 00 20 20 20 80 15 | 20 74 69 74 72 65 24 28 |em. ..| titre$(|
|00004900| 29 2c 73 65 71 75 65 6e | 63 65 24 28 29 00 20 20 |),sequen|ce$(). |
|00004910| 20 80 15 20 66 6f 6e 74 | 5f 68 65 69 67 68 74 00 | .. font|_height.|
|00004920| 20 20 20 80 15 20 72 65 | 71 75 65 73 74 65 72 5f | .. re|quester_|
|00004930| 70 61 74 68 24 2c 50 41 | 52 41 4d 31 24 2c 50 41 |path$,PA|RAM1$,PA|
|00004940| 52 41 4d 32 24 00 20 20 | 20 80 15 20 73 63 72 65 |RAM2$. | .. scre|
|00004950| 65 6e 5f 77 69 64 74 68 | 00 20 20 20 80 15 20 57 |en_width|. .. W|
|00004960| 49 4e 44 4f 57 5f 4e 55 | 4d 42 45 52 00 00 20 20 |INDOW_NU|MBER.. |
|00004970| 20 23 49 44 43 4d 50 5f | 43 4c 4f 53 45 57 49 4e | #IDCMP_|CLOSEWIN|
|00004980| 44 4f 57 20 3d 20 24 30 | 32 30 30 00 20 20 20 23 |DOW = $0|200. #|
|00004990| 49 44 43 4d 50 5f 47 41 | 44 47 45 54 55 50 20 20 |IDCMP_GA|DGETUP |
|000049a0| 20 20 3d 20 24 30 30 34 | 30 00 00 20 20 20 63 75 | = $004|0.. cu|
|000049b0| 72 5f 74 69 74 24 20 3d | 20 74 69 74 72 65 24 28 |r_tit$ =| titre$(|
|000049c0| 6d 65 6e 75 2c 69 74 65 | 6d 29 00 20 20 20 63 75 |menu,ite|m). cu|
|000049d0| 72 5f 65 78 65 24 20 3d | 20 73 65 71 75 65 6e 63 |r_exe$ =| sequenc|
|000049e0| 65 24 28 6d 65 6e 75 2c | 69 74 65 6d 29 00 20 20 |e$(menu,|item). |
|000049f0| 20 6f 6c 64 5f 74 69 74 | 24 20 3d 20 63 75 72 5f | old_tit|$ = cur_|
|00004a00| 74 69 74 24 00 20 20 20 | 62 75 74 74 6f 6e 5f 74 |tit$. |button_t|
|00004a10| 79 70 65 3d 31 00 00 20 | 20 20 80 0b 20 63 75 72 |ype=1.. | .. cur|
|00004a20| 5f 65 78 65 24 3d 22 5c | 74 69 74 6c 65 22 00 20 |_exe$="\|title". |
|00004a30| 20 20 20 20 62 75 74 74 | 6f 6e 5f 74 79 70 65 3d | butt|on_type=|
|00004a40| 30 00 20 20 20 20 20 63 | 75 72 5f 65 78 65 24 3d |0. c|ur_exe$=|
|00004a50| 22 22 00 20 20 20 80 c0 | 00 20 20 20 80 0b 20 dc |"". ..|. .. .|
|00004a60| 97 28 dc 81 28 63 75 72 | 5f 65 78 65 24 2c 35 29 |.(..(cur|_exe$,5)|
|00004a70| 29 3d 22 3c 77 62 3e 20 | 22 00 20 20 20 20 20 62 |)="<wb> |". b|
|00004a80| 75 74 74 6f 6e 5f 74 79 | 70 65 3d 32 00 20 20 20 |utton_ty|pe=2. |
|00004a90| 20 20 63 75 72 5f 65 78 | 65 24 3d dc 91 28 63 75 | cur_ex|e$=..(cu|
|00004aa0| 72 5f 65 78 65 24 2c 35 | 29 00 20 20 20 80 c0 00 |r_exe$,5|). ...|
|00004ab0| 00 20 20 20 6f 6c 64 5f | 62 75 74 74 6f 6e 5f 74 |. old_|button_t|
|00004ac0| 79 70 65 3d 62 75 74 74 | 6f 6e 5f 74 79 70 65 00 |ype=butt|on_type.|
|00004ad0| 00 20 20 20 3b 41 64 64 | 49 44 43 4d 50 20 23 49 |. ;Add|IDCMP #I|
|00004ae0| 44 43 4d 50 5f 43 4c 4f | 53 45 57 49 4e 44 4f 57 |DCMP_CLO|SEWINDOW|
|00004af0| 00 20 20 20 68 3d 66 6f | 6e 74 5f 68 65 69 67 68 |. h=fo|nt_heigh|
|00004b00| 74 2b 35 00 00 20 20 20 | c6 87 20 20 20 20 20 23 |t+5.. |.. #|
|00004b10| 57 49 4e 49 44 5f 5f 45 | 44 49 54 2c 32 2c 31 30 |WINID__E|DIT,2,10|
|00004b20| 2c 36 2c 31 30 2c 31 30 | 2c 22 4d 58 22 2c 32 2c |,6,10,10|,"MX",2,|
|00004b30| 22 54 69 74 6c 65 7c 43 | 4c 49 7c 57 42 22 2c 62 |"Title|C|LI|WB",b|
|00004b40| 75 74 74 6f 6e 5f 74 79 | 70 65 00 20 20 20 c6 8c |utton_ty|pe. ..|
|00004b50| 20 23 57 49 4e 49 44 5f | 5f 45 44 49 54 2c 33 2c | #WINID_|_EDIT,3,|
|00004b60| 38 30 2c 36 20 20 20 20 | 2c 34 30 30 2c 68 2c 22 |80,6 |,400,h,"|
|00004b70| 22 2c 31 2c 32 30 30 2c | 63 75 72 5f 74 69 74 24 |",1,200,|cur_tit$|
|00004b80| 00 20 20 20 c6 8c 20 23 | 57 49 4e 49 44 5f 5f 45 |. .. #|WINID__E|
|00004b90| 44 49 54 2c 34 2c 38 30 | 2c 36 2b 34 2b 68 2c 34 |DIT,4,80|,6+4+h,4|
|00004ba0| 30 30 2c 68 2c 22 22 2c | 31 2c 32 30 30 2c 63 75 |00,h,"",|1,200,cu|
|00004bb0| 72 5f 65 78 65 24 00 20 | 20 20 c6 82 20 23 57 49 |r_exe$. | .. #WI|
|00004bc0| 4e 49 44 5f 5f 45 44 49 | 54 2c 35 2c 34 39 30 2c |NID__EDI|T,5,490,|
|00004bd0| 36 2b 34 2b 68 2c 34 30 | 2c 68 2c 22 52 65 71 22 |6+4+h,40|,h,"Req"|
|00004be0| 2c 31 36 00 20 20 20 c6 | 82 20 23 57 49 4e 49 44 |,16. .|. #WINID|
|00004bf0| 5f 5f 45 44 49 54 2c 36 | 2c 33 36 30 2c 36 2b 34 |__EDIT,6|,360,6+4|
|00004c00| 2b 34 2b 32 2a 68 2c 38 | 30 2c 68 2c 22 4f 4b 22 |+4+2*h,8|0,h,"OK"|
|00004c10| 2c 31 36 00 20 20 20 c6 | 82 20 23 57 49 4e 49 44 |,16. .|. #WINID|
|00004c20| 5f 5f 45 44 49 54 2c 37 | 2c 34 35 30 2c 36 2b 34 |__EDIT,7|,450,6+4|
|00004c30| 2b 34 2b 32 2a 68 2c 38 | 30 2c 68 2c 22 43 61 6e |+4+2*h,8|0,h,"Can|
|00004c40| 63 65 6c 22 2c 31 36 00 | 20 20 20 80 0b 20 62 75 |cel",16.| .. bu|
|00004c50| 74 74 6f 6e 5f 74 79 70 | 65 3d 30 00 20 20 20 20 |tton_typ|e=0. |
|00004c60| 20 20 c6 9b 20 23 57 49 | 4e 49 44 5f 5f 45 44 49 | .. #WI|NID__EDI|
|00004c70| 54 2c 34 00 20 20 20 20 | 20 20 c6 9b 20 23 57 49 |T,4. | .. #WI|
|00004c80| 4e 49 44 5f 5f 45 44 49 | 54 2c 35 00 20 20 20 80 |NID__EDI|T,5. .|
|00004c90| c0 00 00 20 20 20 77 77 | 69 3d 35 35 30 00 20 20 |... ww|i=550. |
|00004ca0| 20 77 68 69 3d 36 2b 33 | 2a 28 36 2b 68 29 2b 36 | whi=6+3|*(6+h)+6|
|00004cb0| 00 20 20 20 20 3b 77 78 | 70 3d 4d 69 6e 28 73 63 |. ;wx|p=Min(sc|
|00004cc0| 72 65 65 6e 5f 77 69 64 | 74 68 2d 77 77 69 2c 4d |reen_wid|th-wwi,M|
|00004cd0| 61 78 28 30 2c 53 4d 6f | 75 73 65 58 2d 77 77 69 |ax(0,SMo|useX-wwi|
|00004ce0| 2f 32 29 29 00 20 20 20 | 20 3b 77 79 70 3d 4d 61 |/2)). | ;wyp=Ma|
|00004cf0| 78 28 31 31 2c 53 4d 6f | 75 73 65 59 2d 77 68 69 |x(11,SMo|useY-whi|
|00004d00| 2f 32 29 00 00 20 20 20 | 57 49 4e 44 4f 57 5f 4e |/2).. |WINDOW_N|
|00004d10| 55 4d 42 45 52 3d 23 57 | 49 4e 49 44 5f 5f 45 44 |UMBER=#W|INID__ED|
|00004d20| 49 54 00 20 20 20 77 69 | 6e 64 6f 77 5f 61 74 5f |IT. wi|ndow_at_|
|00004d30| 63 75 72 73 6f 72 7b 77 | 77 69 2c 77 68 69 2c 24 |cursor{w|wi,whi,$|
|00004d40| 31 30 30 32 2c 22 42 75 | 74 74 6f 6e 62 61 72 20 |1002,"Bu|ttonbar |
|00004d50| 2d 20 45 64 69 74 20 42 | 75 74 74 6f 6e 22 2c 31 |- Edit B|utton",1|
|00004d60| 2c 32 7d 00 20 20 20 c6 | 8e 20 23 57 49 4e 49 44 |,2}. .|. #WINID|
|00004d70| 5f 5f 45 44 49 54 2c 23 | 57 49 4e 49 44 5f 5f 45 |__EDIT,#|WINID__E|
|00004d80| 44 49 54 00 00 20 20 20 | 80 bb 00 20 20 20 20 20 |DIT.. |... |
|00004d90| 20 65 76 2e 6c 3d c5 02 | 00 00 20 20 20 20 20 20 | ev.l=..|.. |
|00004da0| 80 0b 20 28 65 76 3d 24 | 34 30 20 80 42 20 c5 04 |.. (ev=$|40 .B ..|
|00004db0| 3d 37 29 20 80 8a 20 28 | 65 76 3d 24 34 30 30 20 |=7) .. (|ev=$400 |
|00004dc0| 80 42 20 c5 40 3d 23 45 | 53 43 5f 53 43 41 4e 43 |.B .@=#E|SC_SCANC|
|00004dd0| 4f 44 45 29 00 20 20 20 | 20 20 20 20 20 80 05 20 |ODE). | .. |
|00004de0| 65 6e 64 65 64 69 74 32 | 00 20 20 20 20 20 20 80 |endedit2|. .|
|00004df0| c0 00 20 20 20 20 20 20 | 80 0b 20 65 76 3d 24 34 |.. |.. ev=$4|
|00004e00| 30 20 80 42 20 c5 04 3d | 35 00 20 20 20 20 20 20 |0 .B ..=|5. |
|00004e10| 20 20 20 80 32 20 70 2e | 73 3d 32 36 30 00 20 20 | .2 p.|s=260. |
|00004e20| 20 20 20 20 20 20 20 80 | 32 20 66 2e 73 3d 32 36 | .|2 f.s=26|
|00004e30| 30 00 20 20 20 20 20 20 | 20 20 20 70 2e 73 20 3d |0. | p.s =|
|00004e40| 20 72 65 71 75 65 73 74 | 65 72 5f 70 61 74 68 24 | request|er_path$|
|00004e50| 00 20 20 20 20 20 20 20 | 20 20 63 75 72 5f 65 78 |. | cur_ex|
|00004e60| 65 24 3d a8 01 28 22 53 | 65 6c 65 63 74 20 61 20 |e$=..("S|elect a |
|00004e70| 66 69 6c 65 2e 2e 2e 22 | 2c 70 2e 73 2c 66 2e 73 |file..."|,p.s,f.s|
|00004e80| 29 00 20 20 20 20 20 20 | 20 20 20 80 0b 20 63 75 |). | .. cu|
|00004e90| 72 5f 65 78 65 24 3c 3e | 22 22 00 20 20 20 20 20 |r_exe$<>|"". |
|00004ea0| 20 20 20 20 20 20 20 c6 | 94 20 23 57 49 4e 49 44 | .|. #WINID|
|00004eb0| 5f 5f 45 44 49 54 2c 34 | 2c 63 75 72 5f 65 78 65 |__EDIT,4|,cur_exe|
|00004ec0| 24 00 20 20 20 20 20 20 | 20 20 20 20 20 20 65 78 |$. | ex|
|00004ed0| 74 72 61 63 74 5f 70 61 | 74 68 7b 63 75 72 5f 65 |tract_pa|th{cur_e|
|00004ee0| 78 65 24 7d 20 3a 20 72 | 65 71 75 65 73 74 65 72 |xe$} : r|equester|
|00004ef0| 5f 70 61 74 68 24 3d 50 | 41 52 41 4d 31 24 00 20 |_path$=P|ARAM1$. |
|00004f00| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 | |... |
|00004f10| 20 80 c0 00 20 20 20 20 | 20 20 80 0b 20 65 76 3d | ... | .. ev=|
|00004f20| 24 32 30 20 80 42 20 c5 | 40 3c 3e 62 75 74 74 6f |$20 .B .|@<>butto|
|00004f30| 6e 5f 74 79 70 65 00 20 | 20 20 20 20 20 20 20 20 |n_type. | |
|00004f40| 62 75 74 74 6f 6e 5f 74 | 79 70 65 3d c5 40 00 20 |button_t|ype=.@. |
|00004f50| 20 20 20 20 20 20 20 20 | 80 0b 20 62 75 74 74 6f | |.. butto|
|00004f60| 6e 5f 74 79 70 65 3d 30 | 00 20 20 20 20 20 20 20 |n_type=0|. |
|00004f70| 20 20 20 20 20 c6 9b 20 | 23 57 49 4e 49 44 5f 5f | .. |#WINID__|
|00004f80| 45 44 49 54 2c 34 00 20 | 20 20 20 20 20 20 20 20 |EDIT,4. | |
|00004f90| 20 20 20 c6 9b 20 23 57 | 49 4e 49 44 5f 5f 45 44 | .. #W|INID__ED|
|00004fa0| 49 54 2c 35 00 20 20 20 | 20 20 20 20 20 20 20 20 |IT,5. | |
|00004fb0| 20 c6 9f 20 23 57 49 4e | 49 44 5f 5f 45 44 49 54 | .. #WIN|ID__EDIT|
|00004fc0| 3a c6 8e 20 23 57 49 4e | 49 44 5f 5f 45 44 49 54 |:.. #WIN|ID__EDIT|
|00004fd0| 2c 23 57 49 4e 49 44 5f | 5f 45 44 49 54 00 20 20 |,#WINID_|_EDIT. |
|00004fe0| 20 20 20 20 20 20 20 80 | 22 00 20 20 20 20 20 20 | .|". |
|00004ff0| 20 20 20 20 20 20 c6 9a | 20 23 57 49 4e 49 44 5f | ..| #WINID_|
|00005000| 5f 45 44 49 54 2c 34 00 | 20 20 20 20 20 20 20 20 |_EDIT,4.| |
|00005010| 20 20 20 20 c6 9a 20 23 | 57 49 4e 49 44 5f 5f 45 | .. #|WINID__E|
|00005020| 44 49 54 2c 35 00 20 20 | 20 20 20 20 20 20 20 20 |DIT,5. | |
|00005030| 20 20 c6 9f 20 23 57 49 | 4e 49 44 5f 5f 45 44 49 | .. #WI|NID__EDI|
|00005040| 54 3a c6 8e 20 23 57 49 | 4e 49 44 5f 5f 45 44 49 |T:.. #WI|NID__EDI|
|00005050| 54 2c 23 57 49 4e 49 44 | 5f 5f 45 44 49 54 00 20 |T,#WINID|__EDIT. |
|00005060| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 | |... |
|00005070| 20 80 c0 00 20 20 20 80 | bc 20 28 65 76 3d 24 34 | ... .|. (ev=$4|
|00005080| 30 20 80 42 20 c5 04 3d | 36 29 20 80 8a 20 28 65 |0 .B ..=|6) .. (e|
|00005090| 76 3d 24 34 30 30 20 80 | 42 20 c5 40 3d 23 45 4e |v=$400 .|B .@=#EN|
|000050a0| 54 45 52 5f 53 43 41 4e | 43 4f 44 45 29 00 00 20 |TER_SCAN|CODE).. |
|000050b0| 20 20 63 75 72 5f 74 69 | 74 24 20 3d 20 c6 96 20 | cur_ti|t$ = .. |
|000050c0| 28 23 57 49 4e 49 44 5f | 5f 45 44 49 54 2c 33 29 |(#WINID_|_EDIT,3)|
|000050d0| 00 20 20 20 63 75 72 5f | 65 78 65 24 20 3d 20 c6 |. cur_|exe$ = .|
|000050e0| 96 20 28 23 57 49 4e 49 | 44 5f 5f 45 44 49 54 2c |. (#WINI|D__EDIT,|
|000050f0| 34 29 00 00 20 20 20 80 | 0e 20 62 75 74 74 6f 6e |4).. .|. button|
|00005100| 5f 74 79 70 65 00 20 20 | 20 80 0f 20 30 20 3a 20 |_type. | .. 0 : |
|00005110| 63 75 72 5f 65 78 65 24 | 3d 22 5c 74 69 74 6c 65 |cur_exe$|="\title|
|00005120| 22 00 20 20 20 80 0f 20 | 32 20 3a 20 63 75 72 5f |". .. |2 : cur_|
|00005130| 65 78 65 24 3d 22 3c 57 | 42 3e 20 22 2b 63 75 72 |exe$="<W|B> "+cur|
|00005140| 5f 65 78 65 24 00 20 20 | 20 80 02 20 80 0e 00 00 |_exe$. | .. ....|
|00005150| 20 20 20 74 69 74 72 65 | 24 28 6d 65 6e 75 2c 69 | titre|$(menu,i|
|00005160| 74 65 6d 29 3d 63 75 72 | 5f 74 69 74 24 00 20 20 |tem)=cur|_tit$. |
|00005170| 20 73 65 74 5f 72 61 77 | 6b 65 79 7b 6d 65 6e 75 | set_raw|key{menu|
|00005180| 2c 69 74 65 6d 2c 63 75 | 72 5f 74 69 74 24 7d 00 |,item,cu|r_tit$}.|
|00005190| 20 20 20 73 65 71 75 65 | 6e 63 65 24 28 6d 65 6e | seque|nce$(men|
|000051a0| 75 2c 69 74 65 6d 29 3d | 63 75 72 5f 65 78 65 24 |u,item)=|cur_exe$|
|000051b0| 00 20 20 20 80 0b 20 6f | 6c 64 5f 62 75 74 74 6f |. .. o|ld_butto|
|000051c0| 6e 5f 74 79 70 65 3c 3e | 62 75 74 74 6f 6e 5f 74 |n_type<>|button_t|
|000051d0| 79 70 65 00 20 20 20 20 | 20 20 80 0b 20 62 75 74 |ype. | .. but|
|000051e0| 74 6f 6e 5f 74 79 70 65 | 3d 30 00 20 20 20 20 20 |ton_type|=0. |
|000051f0| 20 20 20 c6 9c 20 6d 65 | 6e 75 2c 69 74 65 6d 2c | .. me|nu,item,|
|00005200| 80 c5 00 20 20 20 20 20 | 20 80 22 00 20 20 20 20 |... | .". |
|00005210| 20 20 20 20 c6 9c 20 6d | 65 6e 75 2c 69 74 65 6d | .. m|enu,item|
|00005220| 2c 80 c6 00 20 20 20 20 | 20 20 80 c0 00 20 20 20 |,... | ... |
|00005230| 20 20 20 c6 9f 20 6d 65 | 6e 75 3a c6 8e 20 6d 65 | .. me|nu:.. me|
|00005240| 6e 75 2c 6d 65 6e 75 00 | 20 20 20 80 c0 00 20 20 |nu,menu.| ... |
|00005250| 20 80 0b 20 6f 6c 64 5f | 74 69 74 24 3c 3e 63 75 | .. old_|tit$<>cu|
|00005260| 72 5f 74 69 74 24 00 20 | 20 20 20 20 20 73 65 74 |r_tit$. | set|
|00005270| 75 70 5f 63 6f 6c 75 6d | 6e 7b 6d 65 6e 75 7d 00 |up_colum|n{menu}.|
|00005280| 20 20 20 80 c0 00 00 20 | 20 20 65 6e 64 65 64 69 | .... | endedi|
|00005290| 74 32 00 20 20 20 80 2b | 20 c5 01 20 23 57 49 4e |t2. .+| .. #WIN|
|000052a0| 49 44 5f 5f 45 44 49 54 | 20 3a 20 80 2b 20 c6 81 |ID__EDIT| : .+ ..|
|000052b0| 20 23 57 49 4e 49 44 5f | 5f 45 44 49 54 00 20 20 | #WINID_|_EDIT. |
|000052c0| 20 c5 1f 20 23 57 31 00 | 00 80 02 20 80 08 00 00 | .. #W1.|... ....|
|000052d0| 80 08 20 65 64 69 74 5f | 63 6f 6c 75 6d 6e 7b 7d |.. edit_|column{}|
|000052e0| 00 20 20 20 80 15 20 6d | 65 6e 75 5f 6e 75 6d 62 |. .. m|enu_numb|
|000052f0| 65 72 00 20 20 20 80 15 | 20 74 69 74 72 65 24 28 |er. ..| titre$(|
|00005300| 29 2c 73 65 71 75 65 6e | 63 65 24 28 29 2c 63 6f |),sequen|ce$(),co|
|00005310| 6c 75 6d 6e 5f 74 69 74 | 6c 65 24 28 29 00 20 20 |lumn_tit|le$(). |
|00005320| 20 80 15 20 6d 65 6e 75 | 5f 69 74 65 6d 73 28 29 | .. menu|_items()|
|00005330| 00 20 20 20 80 15 20 66 | 6f 6e 74 5f 68 65 69 67 |. .. f|ont_heig|
|00005340| 68 74 2c 65 78 70 65 63 | 74 65 64 5f 66 6f 6e 74 |ht,expec|ted_font|
|00005350| 5f 77 69 64 74 68 00 20 | 20 20 80 15 20 53 63 72 |_width. | .. Scr|
|00005360| 65 65 6e 46 6f 6e 74 5f | 48 65 69 67 68 74 2c 73 |eenFont_|Height,s|
|00005370| 63 72 65 65 6e 5f 77 69 | 64 74 68 00 20 20 20 80 |creen_wi|dth. .|
|00005380| 15 20 57 49 4e 44 4f 57 | 5f 4e 55 4d 42 45 52 00 |. WINDOW|_NUMBER.|
|00005390| 00 20 20 20 6f 6c 64 5f | 6d 65 6e 75 69 74 65 6d |. old_|menuitem|
|000053a0| 73 3d 6d 65 6e 75 5f 69 | 74 65 6d 73 28 6d 65 6e |s=menu_i|tems(men|
|000053b0| 75 5f 6e 75 6d 62 65 72 | 29 00 20 20 20 6f 6c 64 |u_number|). old|
|000053c0| 5f 74 69 74 6c 65 24 3d | 63 6f 6c 75 6d 6e 5f 74 |_title$=|column_t|
|000053d0| 69 74 6c 65 24 28 6d 65 | 6e 75 5f 6e 75 6d 62 65 |itle$(me|nu_numbe|
|000053e0| 72 29 00 00 20 20 20 73 | 68 3d 53 63 72 65 65 6e |r).. s|h=Screen|
|000053f0| 46 6f 6e 74 5f 48 65 69 | 67 68 74 00 20 20 20 68 |Font_Hei|ght. h|
|00005400| 3d 66 6f 6e 74 5f 68 65 | 69 67 68 74 2b 35 00 20 |=font_he|ight+5. |
|00005410| 20 20 73 3d 68 2b 36 20 | 20 20 20 20 20 20 20 20 | s=h+6 | |
|00005420| 20 3b 73 6b 69 70 00 20 | 20 20 73 77 3d 65 78 70 | ;skip. | sw=exp|
|00005430| 65 63 74 65 64 5f 66 6f | 6e 74 5f 77 69 64 74 68 |ected_fo|nt_width|
|00005440| 2a 37 00 20 20 20 77 3d | 65 78 70 65 63 74 65 64 |*7. w=|expected|
|00005450| 5f 66 6f 6e 74 5f 77 69 | 64 74 68 2a 31 30 00 20 |_font_wi|dth*10. |
|00005460| 20 20 77 77 3d 65 78 70 | 65 63 74 65 64 5f 66 6f | ww=exp|ected_fo|
|00005470| 6e 74 5f 77 69 64 74 68 | 2a 31 34 00 00 20 20 20 |nt_width|*14.. |
|00005480| c6 8c 20 23 57 49 4e 49 | 44 5f 5f 45 44 49 54 2c |.. #WINI|D__EDIT,|
|00005490| 32 2c 73 77 2c 73 2d 68 | 20 20 2c 77 77 2d 35 2c |2,sw,s-h| ,ww-5,|
|000054a0| 68 2c 22 54 69 74 6c 65 | 3a 22 2c 31 2c 32 30 30 |h,"Title|:",1,200|
|000054b0| 2c 63 6f 6c 75 6d 6e 5f | 74 69 74 6c 65 24 28 6d |,column_|title$(m|
|000054c0| 65 6e 75 5f 6e 75 6d 62 | 65 72 29 00 20 20 20 c6 |enu_numb|er). .|
|000054d0| 85 23 57 49 4e 49 44 5f | 5f 45 44 49 54 2c 33 2c |.#WINID_|_EDIT,3,|
|000054e0| 73 77 2c 32 2a 73 2d 68 | 2c 77 77 2d 35 2c 68 2c |sw,2*s-h|,ww-5,h,|
|000054f0| 22 42 75 74 74 6f 6e 73 | 3a 22 2c 31 2c 6d 65 6e |"Buttons|:",1,men|
|00005500| 75 5f 69 74 65 6d 73 28 | 6d 65 6e 75 5f 6e 75 6d |u_items(|menu_num|
|00005510| 62 65 72 29 2d 31 00 20 | 20 20 c6 82 20 23 57 49 |ber)-1. | .. #WI|
|00005520| 4e 49 44 5f 5f 45 44 49 | 54 2c 34 2c 73 77 2b 77 |NID__EDI|T,4,sw+w|
|00005530| 77 2c 73 2d 68 2c 77 2d | 35 2c 68 2c 22 49 6e 63 |w,s-h,w-|5,h,"Inc|
|00005540| 72 65 61 73 65 22 2c 31 | 36 00 20 20 20 c6 82 20 |rease",1|6. .. |
|00005550| 23 57 49 4e 49 44 5f 5f | 45 44 49 54 2c 35 2c 73 |#WINID__|EDIT,5,s|
|00005560| 77 2b 77 77 2c 32 2a 73 | 2d 68 2c 77 2d 35 2c 68 |w+ww,2*s|-h,w-5,h|
|00005570| 2c 22 44 65 63 72 65 61 | 73 65 22 2c 31 36 00 20 |,"Decrea|se",16. |
|00005580| 20 20 c6 82 20 23 57 49 | 4e 49 44 5f 5f 45 44 49 | .. #WI|NID__EDI|
|00005590| 54 2c 38 2c 73 77 2b 77 | 77 2c 33 2a 73 2d 68 2c |T,8,sw+w|w,3*s-h,|
|000055a0| 77 2d 35 2c 68 2c 22 44 | 65 6c 65 74 65 20 43 6f |w-5,h,"D|elete Co|
|000055b0| 6c 75 6d 6e 22 2c 31 36 | 00 20 20 20 c6 82 20 23 |lumn",16|. .. #|
|000055c0| 57 49 4e 49 44 5f 5f 45 | 44 49 54 2c 39 2c 73 77 |WINID__E|DIT,9,sw|
|000055d0| 2b 77 77 2c 34 2a 73 2d | 68 2c 77 2d 35 2c 68 2c |+ww,4*s-|h,w-5,h,|
|000055e0| 22 49 6e 73 65 72 74 20 | 43 6f 6c 75 6d 6e 22 2c |"Insert |Column",|
|000055f0| 31 36 00 20 20 20 c6 82 | 20 23 57 49 4e 49 44 5f |16. ..| #WINID_|
|00005600| 5f 45 44 49 54 2c 32 30 | 2c 73 77 2c 35 2a 73 2d |_EDIT,20|,sw,5*s-|
|00005610| 68 2c 77 2d 35 2c 68 2c | 22 4f 4b 22 2c 31 36 00 |h,w-5,h,|"OK",16.|
|00005620| 20 20 20 c6 82 20 23 57 | 49 4e 49 44 5f 5f 45 44 | .. #W|INID__ED|
|00005630| 49 54 2c 32 31 2c 73 77 | 2b 77 2c 35 2a 73 2d 68 |IT,21,sw|+w,5*s-h|
|00005640| 2c 77 2d 35 2c 68 2c 22 | 43 61 6e 63 65 6c 22 2c |,w-5,h,"|Cancel",|
|00005650| 31 36 00 00 20 20 20 57 | 49 4e 44 4f 57 5f 4e 55 |16.. W|INDOW_NU|
|00005660| 4d 42 45 52 3d 23 57 49 | 4e 49 44 5f 5f 45 44 49 |MBER=#WI|NID__EDI|
|00005670| 54 00 20 20 20 77 69 6e | 64 6f 77 5f 61 74 5f 63 |T. win|dow_at_c|
|00005680| 75 72 73 6f 72 7b 73 77 | 2b 77 77 2b 77 2b 31 32 |ursor{sw|+ww+w+12|
|00005690| 2c 73 68 2b 31 32 2b 35 | 2a 73 2c 24 31 30 30 32 |,sh+12+5|*s,$1002|
|000056a0| 2c 22 42 75 74 74 6f 6e | 62 61 72 20 2d 20 45 64 |,"Button|bar - Ed|
|000056b0| 69 74 20 43 6f 6c 75 6d | 6e 22 2c 31 2c 32 7d 00 |it Colum|n",1,2}.|
|000056c0| 20 20 20 c6 8e 20 23 57 | 49 4e 49 44 5f 5f 45 44 | .. #W|INID__ED|
|000056d0| 49 54 2c 23 57 49 4e 49 | 44 5f 5f 45 44 49 54 00 |IT,#WINI|D__EDIT.|
|000056e0| 00 20 20 20 64 6f 6e 65 | 3d bc 0f 00 20 20 20 80 |. done|=... .|
|000056f0| bb 00 20 20 20 20 20 20 | 65 76 2e 6c 3d c5 02 00 |.. |ev.l=...|
|00005700| 00 20 20 20 20 20 20 80 | 0e 20 65 76 00 20 20 20 |. .|. ev. |
|00005710| 20 20 20 80 0f 20 24 34 | 30 00 20 20 20 20 20 20 | .. $4|0. |
|00005720| 20 20 80 0e 20 c5 04 00 | 20 20 20 20 20 20 20 20 | .. ...| |
|00005730| 80 0f 20 32 30 3a 20 64 | 6f 6e 65 3d bc 0e 00 20 |.. 20: d|one=... |
|00005740| 20 20 20 20 20 20 20 80 | 0f 20 32 31 3a 20 80 05 | .|. 21: ..|
|00005750| 20 65 6e 64 65 64 69 74 | 00 20 20 20 20 20 20 20 | endedit|. |
|00005760| 20 80 0f 20 34 20 3a 20 | c6 95 20 23 57 49 4e 49 | .. 4 : |.. #WINI|
|00005770| 44 5f 5f 45 44 49 54 2c | 33 2c 28 c6 97 28 23 57 |D__EDIT,|3,(..(#W|
|00005780| 49 4e 49 44 5f 5f 45 44 | 49 54 2c 33 29 2b 31 29 |INID__ED|IT,3)+1)|
|00005790| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000057a0| 20 20 64 6f 6e 65 3d bc | 0e 00 20 20 20 20 20 20 | done=.|.. |
|000057b0| 20 20 80 0f 20 35 20 3a | 20 c6 95 20 23 57 49 4e | .. 5 :| .. #WIN|
|000057c0| 49 44 5f 5f 45 44 49 54 | 2c 33 2c a5 8d 28 30 2c |ID__EDIT|,3,..(0,|
|000057d0| c6 97 28 23 57 49 4e 49 | 44 5f 5f 45 44 49 54 2c |..(#WINI|D__EDIT,|
|000057e0| 33 29 2d 31 29 00 20 20 | 20 20 20 20 20 20 20 20 |3)-1). | |
|000057f0| 20 20 20 20 20 20 20 64 | 6f 6e 65 3d bc 0e 00 20 | d|one=... |
|00005800| 20 20 20 20 20 20 20 80 | 0f 20 38 20 3a 20 64 65 | .|. 8 : de|
|00005810| 6c 65 74 65 5f 63 6f 6c | 75 6d 6e 7b 6d 65 6e 75 |lete_col|umn{menu|
|00005820| 5f 6e 75 6d 62 65 72 7d | 00 20 20 20 20 20 20 20 |_number}|. |
|00005830| 20 20 20 20 20 20 20 20 | 20 20 80 05 20 65 6e 64 | | .. end|
|00005840| 65 64 69 74 00 20 20 20 | 20 20 20 20 20 80 0f 20 |edit. | .. |
|00005850| 39 20 3a 20 73 75 63 63 | 3d 69 6e 73 65 72 74 5f |9 : succ|=insert_|
|00005860| 63 6f 6c 75 6d 6e 7b 6d | 65 6e 75 5f 6e 75 6d 62 |column{m|enu_numb|
|00005870| 65 72 7d 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |er}. | |
|00005880| 20 20 20 20 20 80 05 20 | 65 6e 64 65 64 69 74 00 | .. |endedit.|
|00005890| 20 20 20 20 20 20 20 20 | 80 02 20 80 0e 00 20 20 | |.. ... |
|000058a0| 20 20 20 20 80 0f 20 24 | 34 30 30 00 20 20 20 20 | .. $|400. |
|000058b0| 20 20 20 20 80 0e 20 c5 | 40 00 20 20 20 20 20 20 | .. .|@. |
|000058c0| 20 20 80 0f 20 23 45 4e | 54 45 52 5f 53 43 41 4e | .. #EN|TER_SCAN|
|000058d0| 43 4f 44 45 20 3a 20 64 | 6f 6e 65 3d bc 0e 00 20 |CODE : d|one=... |
|000058e0| 20 20 20 20 20 20 20 80 | 0f 20 23 45 53 43 5f 53 | .|. #ESC_S|
|000058f0| 43 41 4e 43 4f 44 45 20 | 20 20 3a 20 80 05 20 65 |CANCODE | : .. e|
|00005900| 6e 64 65 64 69 74 00 20 | 20 20 20 20 20 20 20 80 |ndedit. | .|
|00005910| 02 20 80 0e 00 20 20 20 | 20 20 20 80 02 20 80 0e |. ... | .. ..|
|00005920| 00 20 20 20 80 bc 20 64 | 6f 6e 65 00 00 20 20 20 |. .. d|one.. |
|00005930| 63 6f 6c 75 6d 6e 5f 74 | 69 74 6c 65 24 28 6d 65 |column_t|itle$(me|
|00005940| 6e 75 5f 6e 75 6d 62 65 | 72 29 20 3d 20 c6 96 20 |nu_numbe|r) = .. |
|00005950| 28 23 57 49 4e 49 44 5f | 5f 45 44 49 54 2c 32 29 |(#WINID_|_EDIT,2)|
|00005960| 00 20 20 20 6d 65 6e 75 | 5f 69 74 65 6d 73 28 6d |. menu|_items(m|
|00005970| 65 6e 75 5f 6e 75 6d 62 | 65 72 29 3d 20 a5 8d 28 |enu_numb|er)= ..(|
|00005980| 31 2b 31 2c c6 97 20 28 | 23 57 49 4e 49 44 5f 5f |1+1,.. (|#WINID__|
|00005990| 45 44 49 54 2c 33 29 2b | 31 29 00 00 20 20 20 80 |EDIT,3)+|1).. .|
|000059a0| 0b 20 6f 6c 64 5f 6d 65 | 6e 75 69 74 65 6d 73 3c |. old_me|nuitems<|
|000059b0| 3e 6d 65 6e 75 5f 69 74 | 65 6d 73 28 6d 65 6e 75 |>menu_it|ems(menu|
|000059c0| 5f 6e 75 6d 62 65 72 29 | 00 20 20 20 20 20 20 73 |_number)|. s|
|000059d0| 65 74 75 70 5f 63 6f 6c | 75 6d 6e 7b 6d 65 6e 75 |etup_col|umn{menu|
|000059e0| 5f 6e 75 6d 62 65 72 7d | 00 20 20 20 80 c0 00 20 |_number}|. ... |
|000059f0| 20 20 80 0b 20 6f 6c 64 | 5f 74 69 74 6c 65 24 3d | .. old|_title$=|
|00005a00| 63 6f 6c 75 6d 6e 5f 74 | 69 74 6c 65 24 28 6d 65 |column_t|itle$(me|
|00005a10| 6e 75 5f 6e 75 6d 62 65 | 72 29 00 20 20 20 80 22 |nu_numbe|r). ."|
|00005a20| 00 20 20 20 20 20 20 73 | 65 74 75 70 5f 63 6f 6c |. s|etup_col|
|00005a30| 75 6d 6e 73 5f 74 69 74 | 6c 65 73 7b 7d 00 20 20 |umns_tit|les{}. |
|00005a40| 20 80 c0 00 00 20 20 20 | 65 6e 64 65 64 69 74 00 | .... |endedit.|
|00005a50| 20 20 20 80 2b 20 c5 01 | 20 23 57 49 4e 49 44 5f | .+ ..| #WINID_|
|00005a60| 5f 45 44 49 54 20 3a 20 | 80 2b 20 c6 81 20 23 57 |_EDIT : |.+ .. #W|
|00005a70| 49 4e 49 44 5f 5f 45 44 | 49 54 00 20 20 20 c5 1f |INID__ED|IT. ..|
|00005a80| 20 23 57 31 00 00 80 02 | 20 80 08 00 00 80 09 2e | #W1....| .......|
|00005a90| 73 20 65 64 69 74 5f 73 | 74 72 69 6e 67 76 61 6c |s edit_s|tringval|
|00005aa0| 75 65 7b 76 61 6c 75 65 | 24 2c 76 61 6c 75 65 6e |ue{value|$,valuen|
|00005ab0| 61 6d 65 24 7d 00 20 20 | 20 74 69 74 24 3d 22 45 |ame$}. | tit$="E|
|00005ac0| 64 69 74 20 22 2b 76 61 | 6c 75 65 6e 61 6d 65 24 |dit "+va|luename$|
|00005ad0| 2b dc 86 28 31 30 29 2b | 22 45 6e 74 65 72 20 22 |+..(10)+|"Enter "|
|00005ae0| 2b dc 86 28 33 34 29 2b | 22 4e 6f 22 2b dc 86 28 |+..(34)+|"No"+..(|
|00005af0| 33 34 29 2b 22 20 74 6f | 20 65 72 61 73 65 20 22 |34)+" to| erase "|
|00005b00| 2b 76 61 6c 75 65 6e 61 | 6d 65 24 2b 22 2e 22 00 |+valuena|me$+".".|
|00005b10| 20 20 20 61 24 3d 9b 08 | 28 22 42 75 74 74 6f 6e | a$=..|("Button|
|00005b20| 42 61 72 22 2c 74 69 74 | 24 2c 31 30 30 2c 76 61 |Bar",tit|$,100,va|
|00005b30| 6c 75 65 24 29 00 20 20 | 20 80 0b 20 80 89 20 61 |lue$). | .. .. a|
|00005b40| 24 3d 22 22 00 20 20 20 | 20 20 20 73 75 63 63 20 |$="". | succ |
|00005b50| 3d 20 ac 82 28 30 2c 22 | 22 29 20 20 20 20 20 20 |= ..(0,"|") |
|00005b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005b70| 3b 43 6c 65 61 72 20 6f | 6c 64 20 68 6f 74 6b 65 |;Clear o|ld hotke|
|00005b80| 79 73 00 20 20 20 20 20 | 20 76 61 6c 75 65 24 3d |ys. | value$=|
|00005b90| 61 24 00 20 20 20 20 20 | 20 80 0b 20 dc 97 28 dc |a$. | .. ..(.|
|00005ba0| 81 28 61 24 2c 32 29 29 | 3d 22 6e 6f 22 20 80 21 |.(a$,2))|="no" .!|
|00005bb0| 20 76 61 6c 75 65 24 3d | 22 22 00 20 20 20 20 20 | value$=|"". |
|00005bc0| 20 73 75 63 63 20 3d 20 | ac 82 28 30 2c 76 61 6c | succ = |..(0,val|
|00005bd0| 75 65 24 29 00 20 20 20 | 80 c0 00 20 20 20 80 09 |ue$). |... ..|
|00005be0| 20 80 07 20 76 61 6c 75 | 65 24 00 80 02 20 80 09 | .. valu|e$... ..|
|00005bf0| 00 00 80 08 20 70 72 6f | 70 65 72 74 69 65 73 5f |.... pro|perties_|
|00005c00| 65 64 69 74 5f 62 6f 6f | 6c 65 61 6e 73 7b 7d 00 |edit_boo|leans{}.|
|00005c10| 20 20 20 80 15 20 66 6f | 6e 74 5f 68 65 69 67 68 | .. fo|nt_heigh|
|00005c20| 74 2c 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |t,number|_of_menu|
|00005c30| 73 2c 65 78 70 65 63 74 | 65 64 5f 66 6f 6e 74 5f |s,expect|ed_font_|
|00005c40| 77 69 64 74 68 00 20 20 | 20 80 15 20 53 63 72 65 |width. | .. Scre|
|00005c50| 65 6e 46 6f 6e 74 5f 48 | 65 69 67 68 74 00 00 20 |enFont_H|eight.. |
|00005c60| 20 20 80 15 20 71 75 69 | 74 5f 62 75 74 74 6f 6e | .. qui|t_button|
|00005c70| 5f 62 00 20 20 20 80 15 | 20 73 74 61 62 6c 65 5f |_b. ..| stable_|
|00005c80| 62 61 72 5f 62 00 20 20 | 20 80 15 20 65 78 63 6c |bar_b. | .. excl|
|00005c90| 75 73 69 76 65 5f 6d 65 | 6e 75 73 5f 62 00 20 20 |usive_me|nus_b. |
|00005ca0| 20 80 15 20 66 69 78 65 | 64 5f 6f 70 65 6e 5f 62 | .. fixe|d_open_b|
|00005cb0| 00 20 20 20 80 15 20 72 | 75 6e 61 6e 64 64 69 65 |. .. r|unanddie|
|00005cc0| 5f 62 00 20 20 20 80 15 | 20 72 75 6e 61 6e 64 73 |_b. ..| runands|
|00005cd0| 6c 65 65 70 5f 62 00 20 | 20 20 80 15 20 6f 70 65 |leep_b. | .. ope|
|00005ce0| 6e 5f 6f 6e 5f 77 62 5f | 62 00 20 20 20 80 15 20 |n_on_wb_|b. .. |
|00005cf0| 63 6c 6f 73 65 64 5f 6d | 65 6e 75 5f 6b 65 79 73 |closed_m|enu_keys|
|00005d00| 5f 62 00 20 20 20 80 15 | 20 6f 70 65 6e 5f 6f 6e |_b. ..| open_on|
|00005d10| 5f 68 6f 74 6b 65 79 5f | 62 00 20 20 20 80 15 20 |_hotkey_|b. .. |
|00005d20| 6d 65 6e 75 73 5f 70 72 | 65 66 65 72 65 64 5f 64 |menus_pr|efered_d|
|00005d30| 69 72 65 63 74 69 6f 6e | 00 20 20 20 80 15 20 61 |irection|. .. a|
|00005d40| 75 74 6f 63 6c 6f 73 65 | 5f 62 00 00 20 20 20 68 |utoclose|_b.. h|
|00005d50| 3d 66 6f 6e 74 5f 68 65 | 69 67 68 74 2b 35 00 20 |=font_he|ight+5. |
|00005d60| 20 20 73 3d 68 00 20 20 | 20 73 68 3d 53 63 72 65 | s=h. | sh=Scre|
|00005d70| 65 6e 46 6f 6e 74 5f 48 | 65 69 67 68 74 00 20 20 |enFont_H|eight. |
|00005d80| 20 6c 3d 32 38 2a 65 78 | 70 65 63 74 65 64 5f 66 | l=28*ex|pected_f|
|00005d90| 6f 6e 74 5f 77 69 64 74 | 68 2a 30 2e 37 35 00 20 |ont_widt|h*0.75. |
|00005da0| 20 20 6c 6c 3d 32 30 2a | 65 78 70 65 63 74 65 64 | ll=20*|expected|
|00005db0| 5f 66 6f 6e 74 5f 77 69 | 64 74 68 2a 30 2e 37 35 |_font_wi|dth*0.75|
|00005dc0| 00 20 20 20 77 77 3d 31 | 32 2a 65 78 70 65 63 74 |. ww=1|2*expect|
|00005dd0| 65 64 5f 66 6f 6e 74 5f | 77 69 64 74 68 2a 30 2e |ed_font_|width*0.|
|00005de0| 37 35 00 20 20 20 6c 32 | 3d 32 31 2a 65 78 70 65 |75. l2|=21*expe|
|00005df0| 63 74 65 64 5f 66 6f 6e | 74 5f 77 69 64 74 68 2a |cted_fon|t_width*|
|00005e00| 30 2e 37 35 00 00 20 20 | 20 c6 83 20 23 57 49 4e |0.75.. | .. #WIN|
|00005e10| 49 44 5f 5f 45 44 49 54 | 2c 31 2c 6c 2c 31 2a 73 |ID__EDIT|,1,l,1*s|
|00005e20| 2c 31 30 2c 68 2c 22 51 | 75 69 74 20 62 75 74 74 |,10,h,"Q|uit butt|
|00005e30| 6f 6e 20 70 72 65 73 65 | 6e 74 22 2c 30 00 20 20 |on prese|nt",0. |
|00005e40| 20 c6 83 20 23 57 49 4e | 49 44 5f 5f 45 44 49 54 | .. #WIN|ID__EDIT|
|00005e50| 2c 32 2c 6c 2c 32 2a 73 | 2c 31 30 2c 68 2c 22 4f |,2,l,2*s|,10,h,"O|
|00005e60| 70 65 6e 20 6f 6e 20 77 | 6f 72 6b 62 65 6e 63 68 |pen on w|orkbench|
|00005e70| 22 2c 30 00 20 20 20 c6 | 83 20 23 57 49 4e 49 44 |",0. .|. #WINID|
|00005e80| 5f 5f 45 44 49 54 2c 33 | 2c 6c 2c 33 2a 73 2c 31 |__EDIT,3|,l,3*s,1|
|00005e90| 30 2c 68 2c 22 43 6f 6c | 75 6d 6e 73 20 61 72 65 |0,h,"Col|umns are|
|00005ea0| 20 65 78 63 6c 75 73 69 | 76 65 22 2c 30 00 20 20 | exclusi|ve",0. |
|00005eb0| 20 c6 83 20 23 57 49 4e | 49 44 5f 5f 45 44 49 54 | .. #WIN|ID__EDIT|
|00005ec0| 2c 34 2c 6c 2c 34 2a 73 | 2c 31 30 2c 68 2c 22 54 |,4,l,4*s|,10,h,"T|
|00005ed0| 61 6b 65 20 6b 65 79 20 | 66 72 6f 6d 20 61 6c 6c |ake key |from all|
|00005ee0| 20 63 6f 6c 75 6d 6e 73 | 22 2c 30 00 20 20 20 c6 | columns|",0. .|
|00005ef0| 83 20 23 57 49 4e 49 44 | 5f 5f 45 44 49 54 2c 35 |. #WINID|__EDIT,5|
|00005f00| 2c 6c 2c 35 2a 73 2c 31 | 30 2c 68 2c 22 4f 70 65 |,l,5*s,1|0,h,"Ope|
|00005f10| 6e 20 63 6f 6c 75 6d 6e | 73 20 6f 6e 20 68 6f 74 |n column|s on hot|
|00005f20| 6b 65 79 22 2c 30 00 20 | 20 20 c6 83 20 23 57 49 |key",0. | .. #WI|
|00005f30| 4e 49 44 5f 5f 45 44 49 | 54 2c 36 2c 6c 2c 36 2a |NID__EDI|T,6,l,6*|
|00005f40| 73 2c 31 30 2c 68 2c 22 | 4f 70 65 6e 20 63 6f 6c |s,10,h,"|Open col|
|00005f50| 75 6d 6e 73 20 64 6f 77 | 6e 22 2c 30 00 20 20 20 |umns dow|n",0. |
|00005f60| c6 84 20 20 20 20 23 57 | 49 4e 49 44 5f 5f 45 44 |.. #W|INID__ED|
|00005f70| 49 54 2c 37 2c 6c 6c 2c | 37 2a 73 2c 77 77 2c 68 |IT,7,ll,|7*s,ww,h|
|00005f80| 2c 22 43 6f 6c 75 6d 6e | 20 6d 6f 64 65 22 2c 30 |,"Column| mode",0|
|00005f90| 2c 22 55 6e 73 74 61 62 | 6c 65 7c 53 74 61 62 6c |,"Unstab|le|Stabl|
|00005fa0| 65 7c 41 75 74 6f 63 6c | 6f 73 65 7c 46 6f 72 63 |e|Autocl|ose|Forc|
|00005fb0| 65 6f 70 65 6e 22 00 20 | 20 20 c6 84 20 20 20 20 |eopen". | .. |
|00005fc0| 23 57 49 4e 49 44 5f 5f | 45 44 49 54 2c 38 2c 6c |#WINID__|EDIT,8,l|
|00005fd0| 6c 2c 38 2a 73 2c 77 77 | 2c 68 2c 22 41 66 74 65 |l,8*s,ww|,h,"Afte|
|00005fe0| 72 20 62 75 74 74 6f 6e | 20 70 72 65 73 73 3a 22 |r button| press:"|
|00005ff0| 2c 30 2c 22 4c 69 76 65 | 7c 44 69 65 7c 53 6c 65 |,0,"Live||Die|Sle|
|00006000| 65 70 22 00 00 20 20 20 | 80 0b 20 71 75 69 74 5f |ep".. |.. quit_|
|00006010| 62 75 74 74 6f 6e 5f 62 | 20 20 20 20 20 20 80 21 |button_b| .!|
|00006020| 20 c6 9c 20 23 57 49 4e | 49 44 5f 5f 45 44 49 54 | .. #WIN|ID__EDIT|
|00006030| 2c 31 00 20 20 20 80 0b | 20 6f 70 65 6e 5f 6f 6e |,1. ..| open_on|
|00006040| 5f 77 62 5f 62 20 20 20 | 20 20 20 20 80 21 20 c6 |_wb_b | .! .|
|00006050| 9c 20 23 57 49 4e 49 44 | 5f 5f 45 44 49 54 2c 32 |. #WINID|__EDIT,2|
|00006060| 00 20 20 20 80 0b 20 65 | 78 63 6c 75 73 69 76 65 |. .. e|xclusive|
|00006070| 5f 6d 65 6e 75 73 5f 62 | 20 20 80 21 20 c6 9c 20 |_menus_b| .! .. |
|00006080| 23 57 49 4e 49 44 5f 5f | 45 44 49 54 2c 33 00 20 |#WINID__|EDIT,3. |
|00006090| 20 20 80 0b 20 63 6c 6f | 73 65 64 5f 6d 65 6e 75 | .. clo|sed_menu|
|000060a0| 5f 6b 65 79 73 5f 62 20 | 80 21 20 c6 9c 20 23 57 |_keys_b |.! .. #W|
|000060b0| 49 4e 49 44 5f 5f 45 44 | 49 54 2c 34 00 20 20 20 |INID__ED|IT,4. |
|000060c0| 80 0b 20 6f 70 65 6e 5f | 6f 6e 5f 68 6f 74 6b 65 |.. open_|on_hotke|
|000060d0| 79 5f 62 20 20 20 80 21 | 20 c6 9c 20 23 57 49 4e |y_b .!| .. #WIN|
|000060e0| 49 44 5f 5f 45 44 49 54 | 2c 35 00 20 20 20 80 0b |ID__EDIT|,5. ..|
|000060f0| 20 6d 65 6e 75 73 5f 70 | 72 65 66 65 72 65 64 5f | menus_p|refered_|
|00006100| 64 69 72 65 63 74 69 6f | 6e 3d 2d 31 20 80 21 20 |directio|n=-1 .! |
|00006110| c6 9c 20 23 57 49 4e 49 | 44 5f 5f 45 44 49 54 2c |.. #WINI|D__EDIT,|
|00006120| 36 00 00 20 20 20 3b 53 | 65 74 20 47 54 43 79 63 |6.. ;S|et GTCyc|
|00006130| 6c 65 20 74 6f 20 61 20 | 73 74 61 74 65 00 20 20 |le to a |state. |
|00006140| 20 80 0b 20 66 69 78 65 | 64 5f 6f 70 65 6e 5f 62 | .. fixe|d_open_b|
|00006150| 20 3a 20 63 79 3d 33 00 | 20 20 20 80 22 20 80 0b | : cy=3.| ." ..|
|00006160| 20 61 75 74 6f 63 6c 6f | 73 65 5f 62 20 3a 20 63 | autoclo|se_b : c|
|00006170| 79 3d 32 00 20 20 20 80 | 22 20 80 0b 20 73 74 61 |y=2. .|" .. sta|
|00006180| 62 6c 65 5f 62 61 72 5f | 62 20 3a 20 63 79 3d 31 |ble_bar_|b : cy=1|
|00006190| 20 3a 20 80 22 20 3a 20 | 63 79 3d 30 3a 80 c0 3a | : ." : |cy=0:..:|
|000061a0| 80 c0 3a 80 c0 00 20 20 | 20 c6 93 20 23 57 49 4e |..:... | .. #WIN|
|000061b0| 49 44 5f 5f 45 44 49 54 | 2c 37 2c 24 38 30 30 38 |ID__EDIT|,7,$8008|
|000061c0| 30 30 30 46 2c 63 79 00 | 00 20 20 20 80 0b 20 20 |000F,cy.|. .. |
|000061d0| 72 75 6e 61 6e 64 73 6c | 65 65 70 5f 62 20 3a 20 |runandsl|eep_b : |
|000061e0| 63 79 3d 32 00 20 20 20 | 80 22 20 80 0b 20 20 72 |cy=2. |." .. r|
|000061f0| 75 6e 61 6e 64 64 69 65 | 5f 62 20 3a 20 63 79 3d |unanddie|_b : cy=|
|00006200| 31 20 3a 20 80 22 20 3a | 20 63 79 3d 30 3a 80 c0 |1 : ." :| cy=0:..|
|00006210| 3a 80 c0 00 20 20 20 c6 | 93 20 23 57 49 4e 49 44 |:... .|. #WINID|
|00006220| 5f 5f 45 44 49 54 2c 38 | 2c 24 38 30 30 38 30 30 |__EDIT,8|,$800800|
|00006230| 30 46 2c 63 79 00 00 00 | 20 20 20 77 3d 65 78 70 |0F,cy...| w=exp|
|00006240| 65 63 74 65 64 5f 66 6f | 6e 74 5f 77 69 64 74 68 |ected_fo|nt_width|
|00006250| 2a 31 30 00 20 20 20 c6 | 82 20 23 57 49 4e 49 44 |*10. .|. #WINID|
|00006260| 5f 5f 45 44 49 54 2c 32 | 30 2c 31 30 2c 31 32 2a |__EDIT,2|0,10,12*|
|00006270| 68 2b 35 2c 77 2d 35 2c | 68 2c 22 4f 4b 22 2c 31 |h+5,w-5,|h,"OK",1|
|00006280| 36 00 20 20 20 c6 82 20 | 23 57 49 4e 49 44 5f 5f |6. .. |#WINID__|
|00006290| 45 44 49 54 2c 32 31 2c | 31 30 2b 77 2c 31 32 2a |EDIT,21,|10+w,12*|
|000062a0| 68 2b 35 2c 77 2d 35 2c | 68 2c 22 43 61 6e 63 65 |h+5,w-5,|h,"Cance|
|000062b0| 6c 22 2c 31 36 00 00 20 | 20 20 c5 01 20 20 20 23 |l",16.. | .. #|
|000062c0| 57 49 4e 49 44 5f 5f 45 | 44 49 54 2c 30 2c 31 31 |WINID__E|DIT,0,11|
|000062d0| 2c 6c 2b 33 30 2b 68 2c | 31 33 2a 68 2b 32 30 2b |,l+30+h,|13*h+20+|
|000062e0| 73 68 2c 24 31 30 30 32 | 2c 22 42 75 74 74 6f 6e |sh,$1002|,"Button|
|000062f0| 62 61 72 20 2d 20 45 64 | 69 74 20 62 6f 6f 6c 65 |bar - Ed|it boole|
|00006300| 61 6e 73 22 2c 31 2c 32 | 00 20 20 20 c5 3b 20 22 |ans",1,2|. .; "|
|00006310| 42 75 74 74 6f 6e 62 61 | 72 20 2d 20 45 64 69 74 |Buttonba|r - Edit|
|00006320| 20 62 6f 6f 6c 65 61 6e | 73 22 2c 22 42 75 74 74 | boolean|s","Butt|
|00006330| 6f 6e 42 61 72 22 00 20 | 20 20 c6 8e 20 23 57 49 |onBar". | .. #WI|
|00006340| 4e 49 44 5f 5f 45 44 49 | 54 2c 23 57 49 4e 49 44 |NID__EDI|T,#WINID|
|00006350| 5f 5f 45 44 49 54 00 00 | 00 20 20 20 64 6f 6e 65 |__EDIT..|. done|
|00006360| 3d bc 0f 00 20 20 20 6f | 6b 3d bc 0f 00 20 20 20 |=... o|k=... |
|00006370| 80 0c 20 64 6f 6e 65 3d | bc 0f 00 20 20 20 20 20 |.. done=|... |
|00006380| 20 65 76 2e 6c 3d c5 02 | 00 20 20 20 20 20 20 80 | ev.l=..|. .|
|00006390| 0e 20 65 76 00 20 20 20 | 20 20 20 80 0f 20 24 34 |. ev. | .. $4|
|000063a0| 30 00 20 20 20 20 20 20 | 20 20 80 0e 20 c5 04 00 |0. | .. ...|
|000063b0| 20 20 20 20 20 20 20 20 | 80 0f 20 32 30 20 3a 20 | |.. 20 : |
|000063c0| 64 6f 6e 65 3d bc 0e 20 | 3a 20 6f 6b 3d bc 0e 00 |done=.. |: ok=...|
|000063d0| 20 20 20 20 20 20 20 20 | 80 0f 20 32 31 20 3a 20 | |.. 21 : |
|000063e0| 64 6f 6e 65 3d bc 0e 00 | 20 20 20 20 20 20 20 20 |done=...| |
|000063f0| 80 02 20 80 0e 00 20 20 | 20 20 20 20 80 0f 20 24 |.. ... | .. $|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
